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

最新推荐文章于 2023-04-06 21:12:24 发布

weixin_30617561

最新推荐文章于 2023-04-06 21:12:24 发布

阅读量119

点赞数

原文链接：http://www.cnblogs.com/chenhs/archive/2008/09/08/1286491.html

版权

          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;