如何获得各个运行进程的id

Q :如何获得各个运行进程的id

主要解答者:zswang提交人:huiwww

感谢:zswang、qiqi97

审核者:dext论坛对应贴子:查看

A :

请问在线高手们，如何获得各个运行进程的id,并列出来，用哪个函数，我高分相送

---------------------------------------------------------------

◇[DELPHI]列举当前系统运行进程

uses TLHelp32;

procedure TForm1.Button1Click(Sender: TObject);

var lppe: TProcessEntry32;

found : boolean;

Hand : THandle;

begin

Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);

found := Process32First(Hand,lppe);

while found do

begin

ListBox1.Items.Add(StrPas(lppe.szExeFile));

found := Process32Next(Hand,lppe);

end;

end;

---------------------------------------------------------------

取得系统运行的进程名

var hCurrentWindow:HWnd;szText:array[0..254] of char;

begin

hCurrentWindow:=Getwindow(handle,GW_HWndFrist);

while hCurrentWindow < > 0 do

begin

if Getwindowtext(hcurrnetwindow,@sztext,255) >0 then

listbox1.items.add(strpas(@sztext));

hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);

end;

end;

列举当前系统运行进程

uses TLHelp32;

procedure TForm1.Button1Click(Sender: TObject);

var lppe: TProcessEntry32;

found : boolean;

Hand : THandle;

begin

Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);

found := Process32First(Hand,lppe);

while found do

begin

ListBox1.Items.Add(StrPas(lppe.szExeFile));

found := Process32Next(Hand,lppe);

end;

end;