| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

p_evghenii ©   (2007-08-03 10:32:00) 

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

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;

---

p_evghenii   (2007-08-03 11:04:00) [1]

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

---

Сергей М.   (2007-08-03 10:52:00) [2]

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


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

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


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


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

---

Lacmus   (2007-08-03 10:50:00) [3]


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 необходимо реализовать



---

p_evghenii   (2007-08-03 10:45:00) [4]

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

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

---

Dib@zol   (2007-08-03 10:42:00) [5]

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.

---

Сергей М.   (2007-08-03 10:40:00) [6]

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


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

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

??

---

Наверх