Форум: "Система";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Вниз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
← →
MBo (2002-06-25 12:50) [4]>Torry
uses ...tlhelp32
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c