OpenProcess

[-=silkroad=-]

function OpenProcess(dwDesiredAccess: DWORD; bInheritHandle: Boolean; dwProcessId: DWORD): DWORD;[/b]

może podać ktoś przykład wykorzystania ?

 

[chudy1993]

http://4programmers.net/Delphi/OpenProcess

 

[-=silkroad=-]

dwProcessId
Identyfikator procesu, którego uchwyt ma być otworzony.[/b]

czyli w miejsce dwProcessId muszę dać identyfikator procesu ?

 

[PaPaDo]

PID - Numer identyfikacyjny procesu. Można go zdobyć za pomocą tej funkcji:

function GetProcesPID(ProcessName:String):Integer;

var

  hProcess: THandle;

  _HWND : THandle;

  Proc : TProcessEntry32;

  pid:cardinal;

begin

  Result:=0;

  _HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);

  Proc.dwSize:=SizeOf(Proc); 

  if Integer(Process32First(_HWND, Proc)) <> 0 then

  repeat

   if proc.szExeFile =ProcessName then

   begin

     hProcess:= OpenProcess(PROCESS_CREATE_THREAD + PROCESS_QUERY_INFORMATION + PROCESS_VM_OPERATION + PROCESS_VM_WRITE + PROCESS_VM_READ, false, Proc.th32ProcessID);

     pid:=proc.th32ProcessID;

     Break;

   end;

  until Integer(Process32Next(_HWND, Proc)) = 0; 

  CloseHandle(_HWND);

 Result:=PID;

end;

Nie jestem pewny czy zadziała, ponieważ nie posiadam aktualnie delphi, a funkcję ułożyłem na podstawie:
http://unitedcrew.org/viewtopic.php?p=66831

ProcessName - nazwa procesu, od którego chcesz wyciągnąć PIDa.

 

[-=silkroad=-]

dwProcessId
Identyfikator procesu, którego uchwyt ma być otworzony.

czyli w miejsce dwProcessId muszę dać identyfikator procesu ? chodzi mi o to czy tak mam wpisać wiem skąd PID wytrzasnąć

[ Dodano: 22-02-2008, 13:06 ]
czyż nie ?