Список процессов одна из задач которая не редко встает перед программистом, вот и меня она затронула как и всегда все оказалось не просто, а очень просто вообщем все выглядит вот так:
1.Прожде всего создаем новый проект
2.Потом помещаем на форму Form1:
Memo1:TMemo - для списка; Button1:TButton - Для начала;
Процедурка будет всего одна...
procedure TForm1.Button1Click(Sender: TObject);
var
handler :thandle;
data :TProcessEntry32;
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;
return_name:=names;
end;
begin
memo1.Clear;
handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
if Process32First(handler,data) then
begin
memo1.Lines.add(return_name);
while Process32next(handler,data) do
memo1.Lines.add(return_name);
end
else
showmessage('Ошибка !');
closeHandle(handler);
end;
