如何获得各个运行进程的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;