Как подождать завершения чужого процесса

← →
p_evghenii (2007-08-03 10:32) [0]

Чужой процесс запущен не моим приложением. Но его завершение необходимо отследить в моем приложении. Получаю хендл чужого процесса следующим образом:

procedure CreateWinNTProcessList(List: TstringList);
var
PIDArray: array [0..1023] of DWORD;
cb: DWORD;
I: Integer;
ProcCount: Integer;
hMod: HMODULE;
hProcess: THandle;
ModuleName: array [0..300] of Char;
begin
if List = nil then Exit;
EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
ProcCount := cb div SizeOf(DWORD);
for I := 0 to ProcCount - 1 do
begin
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or
PROCESS_VM_READ,
False,
PIDArray[I]);
if (hProcess <> 0) then
begin
EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
//List.Add(ModuleName);
List.AddObject(ModuleName, TObject(PIDArray[I]));
CloseHandle(hProcess);
end;
end;
end;

procedure GetProcessList(var List: TstringList);
var
ovi: TOSVersionInfo;
begin
if List = nil then Exit;
ovi.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
GetVersionEx(ovi);
case ovi.dwPlatformId of
VER_PLATFORM_WIN32_WINDOWS: CreateWin9xProcessList(List);
VER_PLATFORM_WIN32_NT: CreateWinNTProcessList(List);
end
end;

function EXE_Running(FileName: string; bFullpath: Boolean): integer;
var
i: Integer;
MyProcList: TstringList;
begin
Result := 0;
MyProcList := TStringList.Create;
try
GetProcessList(MyProcList);
if MyProcList = nil then Exit;
for i := 0 to MyProcList.Count - 1 do
begin
if not bFullpath then
begin
if CompareText(ExtractFileName(MyProcList.Strings[i]), FileName) = 0 then
Result := Integer(MyProcList.Objects[i])
end
else if CompareText(MyProcList.strings[i], FileName) = 0 then Result := Integer(MyProcList.Objects[i]);
if Result<>0 then Break;
end;
finally
MyProcList.Free;
end;
end;

procedure SomeFunction;
begin
handle := EXE_Running("чужой_процесс.exe", False);
end;

← →
Сергей М. © (2007-08-03 10:40) [1]

> Получаю хендл чужого процесса

Ты его получил (OpenProcess) и тут же закрыл (Closehandle).

Больше в твоем коде получения хэндла процесса нигде не наблюдается.

??

← →
Dib@zol © (2007-08-03 10:42) [2]

program Launcher;
{$Warnings off}
{$Hints off}

uses Windows;

var
h : Cardinal;
si : STARTUPINFO;
p_i : PROCESS_INFORMATION;
s : string;
begin
with si do begin
cb:=SIZEOF(STARTUPINFO);
lpReserved:=nil;
lpDesktop:=nil;
lpTitle:=nil;
dwX:=0;
dwY:=0;
dwXSize:=0;
dwYSize:=0;
dwXCountChars:=0;
dwYCountChars:=0;
dwFillAttribute:=0;
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=SW_SHOWDEFAULT;
cbReserved2:=0;
lpReserved2:=nil;
hStdInput:=0;
hStdOutput:=0;
hStdError:=0;
end;
s:=ParamStr(1); // Name of process
CreateProcess(nil, PChar(s), nil, nil, false, CREATE_DEFAULT_ERROR_MODE, nil, nil, si, p_i);
h:=WaitForSingleObject(p_i.hProcess, INFINITE);
CloseHandle(h);
// If we are here then process has been terminated.
end.

← →
p_evghenii (2007-08-03 10:45) [3]

//1 - в переменной handle реальное значение хендла процесса, т.к. я без проблем играюсь с его окнами.

//2 - не я запускаю процесс, он уже запущен до меня

← →
Lacmus © (2007-08-03 10:50) [4]

procedure TForm14.Button1Click(Sender: TObject); var H: THandle; begin H := OpenProcess(SYNCHRONIZE, False, FindProcessID(...)); if H <> INVALID_HANDLE_VALUE then try Win32Check(WaitForSingleObject(H, INFINITE) = 0); ShowMessage("OK") finally CloseHandle(H) end else ShowMessage("Fail") end; FindProcessID необходимо реализовать

> //1 - в переменной handle реальное значение хендла процесса

Нет там никакого хэндла.

PID там у тебя, а не хэндл.

> //2 - не я запускаю процесс

Да по барабану кто его запускает)

← →
p_evghenii (2007-08-03 11:04) [6]

Спасибо Lacmus и Сергей М. - с вашей помощью разобрался

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