猫
Delphi技术
日志阅读：2092
日志评论：0

上一篇日志 «
下一篇日志 »

Delphi获取系统当前进程名和进程ID

该日志由 samool 发表于 2007-10-22 9:52 AM



获取系统当前进程名和进程ID，注意在编写本单元时，应注意引用"TLHelp32"单元"use TLHelp32".

delphi代码
  1. procedure TForm1.Button1Click(Sender: TObject);   
  2. var  
  3.   ProcessName : string; //进程名   
  4.   ProcessID  : integer; //进程表示符   
  5.   i : integer;   
  6.   ContinueLoop:BOOL;   
  7.   FSnapshotHandle:THandle; //进程快照句柄   
  8.   FProcessEntry32:TProcessEntry32; //进程入口的结构体信息   
  9. begin  
  10.   FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照   
  11.   FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);   
  12.   ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程   
  13.   //循环例举   
  14.   while ContinueLoop  do  
  15.   begin  
  16.     ProcessName := FProcessEntry32.szExeFile;   
  17.     ProcessID := FProcessEntry32.th32ProcessID;   
  18.     Listbox.Items.add('应用程序名 ：'+ProcessName +'#进程ID：'+ inttostr(ProcessID));   
  19.     ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);   
  20.   end;   
  21. end;  

图片附件(缩略图):
fek}k2iwo2$38p8atn}wvp4.jpg 大小: 61.72 K 尺寸: 380 x 336 浏览: 9 次 点击打开新窗口浏览全图

 傻猫网络日志标签:    系统, 进程名, 进程id, 进程, tlhelp32  tiffany jewelry  
网摘： Yahoo Baidu Google Bolaa 365Key Yesky Wozhai POCO ViVi YouNote Hexun Del.icio.us Yeeyoo igooi I2Key Cn3 Bytemen Furl Blinklist Blogmarks Technorati 分享到饭否
相关文章： (最多只显示5条记录)
发表评论：( 来了就留个脚印吧！你的参与是我最大的动力！)

    

(单击图片换张图片)