Дождаться завершения другой программы

Posted by micher under Delphi

Как приостановить работу главной программы, пока не отработает запущенная?

Просто рабочий пример:

program PackArj;

USES SYSUTILS, Windows;

{$APPTYPE CONSOLE}
var

    S1        : string;

    fResCheck : text;

    fResNeed  : text;
procedure PackFile( sFName, sDestPath : string);

var si:TStartupInfo;

    pi:TProcessInformation;

    cmdline:string;
begin

    ZeroMemory(@si,sizeof(si));

    si.cb:=SizeOf(si);

    cmdline:='C:\UTIL\ARCS\arj.exe a currtest c:\temp\*.htm';

    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

         WriteLn( 'CreateProcess failed. ('+cmdline+')' );

         Exit;

        end;

    WaitForSingleObject( pi.hProcess, INFINITE );

    CloseHandle( pi.hProcess );

    CloseHandle( pi.hThread );

//    WriteLn('Done !');

end;
// тело самой программы - main()

begin
    PackFile('',''); 
    WriteLn('Done.');

    Readln;
end.

тема на форуме

Похожие статьи

• Перенести программу из Delphi в Lazarus
• Тест в Delphi с помощью RadioGroup
• Random слов в Memo
• Плавное перемещение Image больших размеров
• Выдвижное меню
• Получение яндекс каптчи в Image
• Добавить строку с верха вниз StringGrid
• Выбор таблицы в ComboBox
• Указать координаты для создания компонента
• Скопировать данные из Edit в Word