Форум: "WinAPI";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Внизкак вызвать процесс и дождаться окончания его выполнения? Найти похожие ветки
← →
Boris_S © (2004-03-29 17:47) [0]как из программы вызвать выполнение независимой программы и дождаться окончания ее выполнения что бы потом вызвать еще одну
программу?
← →
Игорь Шевченко © (2004-03-29 17:56) [1]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;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.046 c