Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как лучше сделать, если необходимо запустить внешний процесс и подождать, пока он отработает?

Как лучше сделать, если необходимо запустить внешний процесс и подождать, пока он отработает?

procedure TForm1.Button1Click(Sender: TObject);
var si:STARTUPINFO;
    pi:PROCESS_INFORMATION;
    cmdline:string;
begin
    ZeroMemory(@si,sizeof(si));
    si.cb:=SizeOf(si);
    cmdline:='c:\command.com';
    if not CreateProcess( nil, // No module name (use command line).
        PChar(cmdline),  // Command line.
        nil,             // Process handle not inheritable.
        nil,             // Thread handle not inheritable.
        False,           // Set handle inheritance to FALSE.
        0,               // No creation flags.
        nil,             // Use parent's environment block.
        nil,             // Use parent's starting directory.
        si,              // Pointer to STARTUPINFO structure.
        pi )             // Pointer to PROCESS_INFORMATION structure.
       then
        begin
         ShowMessage( 'CreateProcess failed.' );
         Exit;
        end;
    WaitForSingleObject( pi.hProcess, INFINITE );
    CloseHandle( pi.hProcess );
    CloseHandle( pi.hThread );
    ShowMessage('Done !');
end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru