Получаем идентификационный номер процесса (PID) по его имени.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Uses Tlhelp32; ... var procName: string; pid: Integer; begin procName:= 'taskmgr.exe'; pid:= getPIDbyProcessName(procName); if pid <> 0 then ShowMessage('ID процесса: ' + IntToStr(pid)) else ShowMessage('Процесс не найден'); end; |
Параметры
procName - имя процесса
Результат
ID процесса или 0, если процесс не найден.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
function getPIDbyProcessName(processName:String): integer; var GotProcess: Boolean; tempHandle: tHandle; procE: tProcessEntry32; begin processName:= AnsiLowerCase(processName); tempHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0); procE.dwSize:=SizeOf(procE); GotProcess:= Process32First(tempHandle, procE); {$B-} if GotProcess and (AnsiLowerCase(procE.szExeFile) <> processName) then repeat GotProcess := Process32Next(tempHandle, procE); until (not GotProcess) or (AnsiLowerCase(procE.szExeFile) = processName); {$B+} if GotProcess then result := procE.th32ProcessID else result := 0; CloseHandle(tempHandle); end; |
