ProcessId anhand des Prozessnamens herausfinden

[Meflin]

thx ich hab in der code library das hier gefunden:

Delphi-Quellcode:

function GetProcID(sProcName: String): Integer; 
var 
  hProcSnap: THandle; 
  pe32: TProcessEntry32; 
begin 
  result := -1; 
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
  if hProcSnap = INVALID_HANDLE_VALUE then exit; 

  pe32.dwSize := SizeOf(ProcessEntry32);

  { wenn es geklappt hat } 
  if Process32First(hProcSnap, pe32) = true then 
    { und los geht's: Prozess suchen} 
    while Process32Next(hProcSnap, pe32) = true do 
    begin 
      if pos(sProcName, pe32.szExeFile) <> 0then 
        result := pe32.th32ProcessID; 
    end; 
end;

das taugt!