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

  • 相关阅读:
    位运算与变量多状态表达
    判断点是否在多边形内
    向量旋转
    小怪受击身体变红特效代码
    字典 Key值转换为数组
    Android中的Selector的使用总结
    Android 常见的工具类
    成为Android高手必须掌握的8项基本要求
    K-means算法
    Android 5.0以上获取系统运行进程信息
  • 原文地址:https://www.cnblogs.com/chenhs/p/1286491.html
Copyright © 2020-2023  润新知