Список процессов

← →
dkDimon (2003-02-20 23:03) [0]

А как получить список всех процессов под Win9x и под WinXP (если я правильно понимаю, под ними по-разному это делается)?

← →
ZZ (2003-02-21 00:11) [1]

Можно и по одинаковому

← →
dkDimon (2003-02-21 01:01) [2]

Мне в общем-то все равно - по-разному, по одинаковому - самое главное КАК?

← →
MBo (2003-02-21 07:04) [3]

ToolHelp32 функции.

По-другому только в NT (PSAPI)

← →
Viktor Kushnir (2003-02-21 10:12) [4]

Может и сработает.

procedure TForm1.Button1Click(Sender: TObject);
var
handler:thandle;
data:TProcessEntry32;
Name :String;

function return_name:string;
var
i:byte;
names:string;
begin
names:="";
i:=0;
while data.szExeFile[i] <> "" do
begin
names:=names+data.szExeFile[i];
inc(i);
end;
New(HND);
HND^ := Data.th32ProcessID;
Handles.Add(HND);
return_name:=names;
end;
begin
FreeHandles;
handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
if process32first(handler,data) then
begin
Name := return_name;
listbox1.Items.add(IntTOstr(Data.th32ProcessID)+" "+Name);
while process32next(handler,data) do
Begin
Name := return_name;
listbox1.Items.add(IntTOstr(Data.th32ProcessID)+" "+Name);
End;
end else showmessage("Ошибка получения информации :)");
CloseHandle(handler);
end;

Список процессов Найти похожие ветки