Пауза, пока не завершится другая программа.

[Alex Cones]

Посылаю ShellExecute c параметром. Как приостановить работу главной программы, пока не отработает запущенная (это конвертор)?

[Stilet]

WaitForSingleObject(хендл запущенной проги (открытого файла), INFINITE);
Затормозит твой процесс

[Alex Cones]

Як хендл получить? FindWindow? А ежели он безформенный?

[Serge_Bliznykov]

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

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.

[Alex Cones]

Благодарю, работает на 100%.

[Stilet]

FindWindow? А ежели он безформенный?

В данном случае имеется ввиду хендл открытого процесса
(Вон у Сержа - pi.hProcess)
Хендл это не только номер окошка, Микрососы это словечко втюлили везде.