Запуск и ожидание завершения процесса

← →
LK (2004-05-09 20:22) [0]

Подскажите плиз, как определить, когда запускаемый ShellExecute файл полностью исполнится. Нужно, чтобы управление программе передавалось только после завершения прикладной проги. ShellExecute гоняется в цикле и поэтому нужно ждать, пока предыдущий процесс завершится.

← →
Dimaxx © (2004-05-09 21:36) [1]

WaitForSingleObject тебе нужен, а не ShellExecute.

← →
Игорь Шевченко © (2004-05-09 22:28) [2]

ShellExecuteEx + WaitForSingleObject.

Пример: procedure TfMain.DumpFile(const FileName: string); var ShellInfo: TShellExecuteInfo; ParamsString: string; begin ParamsString := Format("-em %s %s.aaa", [FileName, FileName]); ShellInfo.cbSize := SizeOf(ShellInfo); ShellInfo.fMask := SEE_MASK_NOCLOSEPROCESS; ShellInfo.Wnd := Handle; ShellInfo.lpVerb := "open"; ShellInfo.lpFile := "tdump"; ShellInfo.lpParameters := PChar(ParamsString); ShellInfo.lpDirectory := nil; ShellInfo.nShow := SW_SHOW; if not ShellExecuteEx(@ShellInfo) then RaiseLastWin32Error; if ShellInfo.hProcess <> 0 then try WaitForSingleObjectEx(ShellInfo.hProcess, INFINITE, false); finally CloseHandle(ShellInfo.hProcess); end; end;

← →
LK (2004-05-10 00:23) [3]

Спасибо, со структурой TShellExecuteInfo копался, а про WaitForSingleObjectEx не знал.

Запуск и ожидание завершения процесса Найти похожие ветки