Как получить список процессов?

Nomadic предлагает следующий код:

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
handler:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
if process32first(handler,data) then begin
listbox1.Items.add(return_name); while process32next(handler,data) do listbox1.Items.add(return_name); end else showmessage('Ошибка получения информации :)'); end;

А запускать например так:

procedure TForm1.Label3Click(Sender: TObject);
begin
shellexecute(handle,'open','mailto:maxrus@mail.ru',nil,nil,0)
end;
end.

[001711]

Содержание раздела