держи, для себя писал когдато , в юзесах только tlhelp32 указать незабудь Function GetProcID(name:string):Cardinal;
var
SnapShot:THandle;
process:TProcessEntry32;
begin
result := 0;
SnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);//делаем снимок процессов
process.dwSize := SizeOf(Process);//указываем размер структуры
Process32First(SnapShot,Process);//начинаем перебирать процессы
repeat
if process.szExeFile = name then
begin
result := process.th32ProcessID;
CloseHandle(SnapShot);
exit;
end;
until Process32Next(SnapShot,Process) <> true;
CloseHandle(SnapShot);
end;