{"id":331,"date":"2008-05-18T20:20:04","date_gmt":"2008-05-18T20:20:04","guid":{"rendered":"http:\/\/6teen.ru\/?p=122"},"modified":"2008-05-18T20:20:04","modified_gmt":"2008-05-18T20:20:04","slug":"8196","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=331","title":{"rendered":"\u0417\u0430\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0441 \u043e\u0436\u0438\u0434\u0430\u043d\u0438\u0435\u043c \u0435\u0451 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f"},"content":{"rendered":"<p>\u0417\u0430\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0441 \u043e\u0436\u0438\u0434\u0430\u043d\u0438\u0435\u043c \u0435\u0451 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u0417\u0430\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0441 \u043e\u0436\u0438\u0434\u0430\u043d\u0438\u0435\u043c \u0435\u0451 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f\n\n\u0412 \u043f\u0440\u0438\u0432\u0435\u0434\u0451\u043d\u043d\u043e\u043c \u043d\u0438\u0436\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u0435, \u043d\u0435 \u043f\u0440\u0435\u0442\u0435\u043d\u0434\u0443\u044e\u0449\u0435\u043c \u043d\u0430 \u043f\u0430\u043d\u0430\u0446\u0435\u044e, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0437\u0430\u043f\u0443\u0441\u043a \u0430\u0440\u0445\u0438\u0432\u0430\u0442\u043e\u0440\u0430 rar \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u043e\u043c \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 \u0434\u043b\u044f \u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f\/\u0440\u0430\u0437\u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0446\u0435\u043b\u043e\u0433\u043e \u043a\u0430\u0442\u0430\u043b\u043e\u0433\u0430. \u041f\u043e\u0441\u043b\u0435 \u044d\u0442\u043e\u0433\u043e \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0443\u0435\u0442\u0441\u044f \u0446\u0438\u043a\u043b \u043e\u0436\u0438\u0434\u0430\u043d\u0438\u044f, \u0434\u043e \u0442\u0435\u0445 \u043f\u043e\u0440 \u043f\u043e\u043a\u0430 \u043f\u0440\u043e\u0446\u0435\u0441\u0441 \u043d\u0435 \u043e\u0442\u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442. \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0447\u0442\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0430\u043b\u044c\u0442\u0435\u0440\u043d\u0430\u0442\u0438\u0432\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 WaitForSingleObject(), \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u0430\u044f \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u044f \u0446\u0438\u043a\u043b\u0430. \u0425\u043e\u0440\u043e\u0448\u043e \u044d\u0442\u043e \u0438\u043b\u0438 \u043f\u043b\u043e\u0445\u043e, \u0440\u0435\u0448\u0430\u0442\u044c \u0432\u0430\u043c.\n\nProcedure CrProcess(FileName, S, Dir, WindowName: String);\n\/\/ c Song\nVar SeInfo: TShellExecuteInfo;\n   ExitCode: DWord;\nBegin\n FillChar(SEInfo,SizeOf(SEInfo),0);\n With SEInfo Do\n  Begin\n   cbSize:=SizeOf(TShellExecuteInfo);\n   fmask:=SEE_MASK_NOCLOSEPROCESS;\n   Wnd:=Application.Handle;\n   lpFile:=PChar('\"'+FileName+'\"');\n   lpParameters:=PChar(S);\n   lpDirectory:=nil;\n    { \u041c\u043e\u0436\u0435\u0442\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0434\u0440\u0443\u0433\u0438\u0435 \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u044b, \u0435\u0441\u043b\u0438 \u0445\u043e\u0442\u0438\u0442\u0435, \u0447\u0442\u043e\u0431\u044b \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0435 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 \u0431\u044b\u043b\u043e \u0432\u0438\u0434\u043d\u043e }\n   nShow:=SW_HIDE;\n  End; {With}\n IF ShellExecuteEx(@SEInfo) then\n  Repeat\n   Application.ProcessMessages;\n   GetExitCodeProcess(SEInfo.hProcess,ExitCode);\n  Until(FindWindow(nil,PChar(WindowName))<>0) or\n       (ExitCode<>STILL_ACTIVE) or Application.Terminated else MessageDlg('\u041e\u0448\u0438\u0431\u043a\u0430 \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0432\u043d\u0435\u0448\u043d\u0435\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430. \u041a\u043e\u0434 \u043e\u0448\u0438\u0431\u043a\u0438: '+SysErrorMessage(GetLastError),mtError,[mbAbort],0);\n CloseHandle(SEInfo.hProcess);\n IF FindWindow(nil,PChar(WindowName))<>0 then\n  Begin\n   SendMessage(FindWindow(nil,PChar(WindowName)),WM_CLOSE,0,0);\n   While FindWindow(nil,PChar(WindowName))<>0 Do Application.ProcessMessages;\n  End; {IF}\nEnd;\n\n\u041f\u0440\u0438\u043c\u0435\u0440\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f:\n\n\/\/ \u0437\u0430\u0430\u0440\u0445\u0438\u0438\u0440\u043e\u0432\u0430\u0442\u044c\nCrProcess('\u043f\u0443\u0442\u044c_\u043a_\u0430\u0440\u0445\u0438\u0432\u0430\u043e\u0440\u0443_rar','a -r0 -m5 '+'\u0438\u043c\u044f_\u0430\u0440\u0445\u0438\u0432\u0430'+#32+'\u0438\u043c\u044f_\u043a\u0430\u0442\u0430\u043b\u043e\u0433\u0430'+'*.*',TempPath,'(\u0421\u0435\u0430\u043d\u0441 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d) - Rar');\n\n\/\/ \u0440\u0430\u0437\u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u0442\u044c\nCrProcess('\u043f\u0443\u0442\u044c_\u043a_\u0430\u0440\u0445\u0438\u0432\u0430\u043e\u0440\u0443_rar','x -y '+'\u0438\u043c\u044f_\u0430\u0440\u0445\u0438\u0432\u0430'+#32+'\u043a\u0430\u0442\u0430\u043b\u043e\u0433_\u043a\u0443\u0434\u0430_\u0440\u0430\u0437\u0430\u0440\u0445\u0438\u0432\u0438\u0440\u043e\u0432\u0430\u0442\u044c','(\u0421\u0435\u0430\u043d\u0441 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d) - Rar');\n\n\n\u041f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0430 \u0438\u0441\u0445\u043e\u0434\u044f \u0438\u0437 \u0441\u043e\u0432\u043c\u0435\u0441\u0442\u0438\u043c\u043e\u0441\u0442\u0438 \u0441\u043e \u0441\u0442\u0430\u0440\u044b\u043c\u0438 \u0414\u041e\u0421 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430\u043c\u0438. \u0414\u041e\u0421 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u043d\u0435 \u043e\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0442 \u043a\u043e\u0434 \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u044f \u0441\u0432\u043e\u0435\u0433\u043e \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 \u043f\u043e \u043a\u043e\u0434\u0443 STILL_ACTIVE, \u0430 \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0432 \u0442\u0430\u043a\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0437\u0430\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430 \"\u043f\u043e\u0432\u0438\u0441\u043d\u0435\u0442\", \u0442.\u0435. \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u0441\u0442\u043e\u044f\u043d\u043d\u043e \"\u043a\u0440\u0443\u0442\u0438\u0442\u0441\u044f\" \u0432 \u0446\u0438\u043a\u043b\u0435 Repeat .. Until(). \u0414\u043b\u044f \u0442\u0430\u043a\u0438\u0445 \u0441\u043b\u0443\u0447\u0430\u0435\u0432 \u043f\u0440\u0435\u0434\u043d\u043e\u0437\u043d\u0430\u0447\u0435\u043d\u0430 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f WindowName. \u041a\u043e\u0433\u0434\u0430 \u0414\u041e\u0421 \u0437\u0430\u0434\u0430\u0447\u0430 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u0442\u0441\u044f, \u043f\u043e\u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043e\u043a\u043d\u043e \"(\u0421\u0435\u0430\u043d\u0441 \u0437\u0430\u0432\u0435\u0440\u0448\u0451\u043d)  - \u0418\u043c\u044f_\u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0430\". \u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0439\u0442\u0435 \u044d\u0442\u0443 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e, \u0435\u0441\u043b\u0438 \u0432\u044b \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u0442\u0435 \u0414\u041e\u0421 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443, \u0432\u043f\u0438\u0441\u0430\u0432 \u043f\u0440\u0438 \u044d\u0442\u043e\u043c \u0432 \u044d\u0442\u0443 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0443\u044e \u0441\u0432\u043e\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u043f\u043e \u0430\u043d\u0430\u043b\u043e\u0433\u0438\u0438. \u0412 \u044d\u0442\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0446\u0438\u043a\u043b Repeat .. Until() \u043e\u0431\u043e\u0440\u0432\u0451\u0442\u0441\u044f \u043f\u0440\u0438 \u043d\u0430\u043b\u0438\u0447\u0438\u0438 \u0442\u0430\u043a\u043e\u0433\u043e \u043e\u043a\u043d\u0430, \u0442.\u0435. \u043a\u043e\u0433\u0434\u0430 \u043f\u0440\u043e\u0446\u0435\u0441\u0441 \u0438 \u0437\u0430\u0432\u0435\u0440\u0448\u0438\u0442\u0441\u044f. \u0414\u043e \u043a\u0443\u0447\u0438 \u0435\u0449\u0451 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u0430 \u0437\u0430\u043a\u0440\u043e\u0435\u0442 \u044d\u0442\u043e \u043e\u043a\u043d\u043e, \u0447\u0442\u043e\u0431\u044b \u043f\u0440\u0435\u0434\u043e\u0442\u0432\u0440\u0430\u0442\u0438\u0442\u044c \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0443 \u043f\u0440\u0438 \u043c\u043d\u043e\u0433\u043e\u043a\u0440\u0430\u0442\u043d\u044b\u0445 \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0445.\n\n\u0412\u0430\u0440\u0438\u0430\u043d\u0442 \u21162 \u0447\u0435\u0440\u0435\u0437 WaitForSingleObject\n\n\u0410\u0432\u0442\u043e\u0440: Fabr\u043dcio Fadel Kammer\n\n\u041f\u0440\u0438\u043c\u0435\u0440 \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 \u043a\u0430\u043a \u0438\u0437 \u0412\u0430\u0448\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u0442\u044c \u0432\u043d\u0435\u0448\u043d\u0435\u0435 \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0438 \u043f\u043e\u0434\u043e\u0436\u0434\u0430\u0442\u044c \u0435\u0433\u043e \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u044f.\n\nfunction ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export;\nvar\n  StartInfo: TStartupInfo;\n  ProcInfo: TProcessInformation;\n  CmdLine: ShortString;\nbegin\n  { \u041f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u0438\u043c\u044f \u0444\u0430\u0439\u043b\u0430 \u043c\u0435\u0436\u0434\u0443 \u043a\u0430\u0432\u044b\u0447\u043a\u0430\u043c\u0438, \u0441 \u0441\u043e\u0431\u043b\u044e\u0434\u0435\u043d\u0438\u0435\u043c \u0432\u0441\u0435\u0445 \u043f\u0440\u043e\u0431\u0435\u043b\u043e\u0432 \u0432 \u0438\u043c\u0435\u043d\u0430\u0445 Win9x }\n  CmdLine := '\"' + Filename + '\" ' + Params;\n  FillChar(StartInfo, SizeOf(StartInfo), #0);\n  with StartInfo do\n  begin\n    cb := SizeOf(StartInfo);\n    dwFlags := STARTF_USESHOWWINDOW;\n    wShowWindow := WinState;\n  end;\n  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,\n                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,\n                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);\n  { \u041e\u0436\u0438\u0434\u0430\u0435\u043c \u0437\u0430\u0432\u0435\u0440\u0448\u0435\u043d\u0438\u044f \u043f\u0440\u0438\u043b\u043e\u0436\u0435\u043d\u0438\u044f }\n  if Result then\n  begin\n    WaitForSingleObject(ProcInfo.hProcess, INFINITE);\n    { Free the Handles }\n    CloseHandle(ProcInfo.hProcess);\n    CloseHandle(ProcInfo.hThread);\n  end;\nend;\n\n\u0410 \u0432\u043e\u0442 \u043f\u0440\u0438\u043c\u0435\u0440 \u0432\u044b\u0437\u043e\u0432\u0430 \u044d\u0442\u043e\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0438:\n\nExecAndWait( 'C:\\windows\\calc.exe', '', SH_SHOWNORMAL)\n\n\u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 FileName = \u0418\u043c\u044f \u0432\u043d\u0435\u0448\u043d\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b.\n\u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 Params = \u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b, \u043d\u0435\u043e\u0431\u0445\u043e\u0434\u0438\u043c\u044b\u0435 \u0434\u043b\u044f \u0437\u0430\u043f\u0443\u0441\u043a\u0430 \u0432\u043d\u0435\u0448\u043d\u0435\u0439 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b\n\u041f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 WinState = \u0423\u043a\u0430\u0437\u044b\u0432\u0430\u0435\u0442 - \u043a\u0430\u043a \u0431\u0443\u0434\u0435\u0442 \u043f\u043e\u043a\u0430\u0437\u0430\u043d\u043e \u043e\u043a\u043d\u043e:\n\u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u0430 \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0442\u0430\u043a \u0436\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0435 \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u044b:\nSW_HIDE, SW_MAXIMIZE, SW_MINIMIZE, SW_SHOWNORMAL\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u0417\u0430\u043f\u0443\u0441\u043a \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0441 \u043e\u0436\u0438\u0434\u0430\u043d\u0438\u0435\u043c \u0435\u0451 \u0432\u044b\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u044f<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[431,440],"tags":[671,224,869,937],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/331"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=331"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/331\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=331"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=331"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=331"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}