PID ы всех процессов системы

← →
mcs © (2002-06-22 22:35) [0]

Уважаемые Мастера!
Как получить PID"ы всех процессов системы,
зная их HANDLES и\или CAPTIONS? Если можно
с примером.

← →
crazy progman (2002-06-24 15:48) [1]

Это для циклического получения всех PID"ов и имен исполняемых модулей в системе.
procedure TForm1.Button1Click(Sender: TObject);
var
snap : THandle;
pe32 : TPROCESSENTRY32;
i: boolean;
begin
ListBox1.Clear;
snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, dword(0));
pe32.dwSize := SizeOf(TPROCESSENTRY32);
i:=Process32First(snap, pe32);
i:=Process32Next(snap, pe32);
repeat
listbox1.Items.Add(pe32.szExeFile);
listbox2.Items.Add(IntToStr(pe32.th32ProcessID));
i:=Process32Next(snap, pe32);
until i=false;
CloseHandle(snap);
end;

Это для определения хендла окна по его caption.
FindWindow(lpClassName: PChar, lpWindowName: PChar): THANDLE;

Это для определения PID"а приложения похендлу окна
GetWindowThreadProcessID(
hwnd, //хендл окна
@ProcessID //переменная в которую
//функция PID возвратит
);

← →
mcs © (2002-06-24 17:01) [2]

Thanks

← →
Torry (2002-06-25 12:38) [3]

А уточни что такое:
pe32 : TPROCESSENTRY32

>Torry
uses ...tlhelp32

PID ы всех процессов системы Найти похожие ветки