Function GetProcessName(ProcessID:DWORD):string;
var Snapshot:THandle;
Process: TPROCESSENTRY32;
begin
result:='';
Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if Snapshot = INVALID_HANDLE_VALUE then exit;
Process.dwSize := SizeOf(TPROCESSENTRY32);
if Process32First(SnapShot, Process) then
repeat
if ProcessID=Process.th32ProcessID then
begin
Result := Process.szExeFile;
CloseHandle(Snapshot);
Exit;
end;
until not Process32Next(Snapshot, Process);
CloseHandle(Snapshot);
end;
PID процеса по имени модуля
Какие есть API для определения PID по имени исполняемого модуля? Заранее спасибо.
CreateToolhelp32Snapshot
Module32First
Module32Next
с помощью их перебираешь и ищешь....
Module32First
Module32Next
с помощью их перебираешь и ищешь....
Мда, хотя я сперва думал что можно просто взять и по названию модуля сразу получить PID, но вижу что ошибался. Всем спасибо за внимание.