AI摘要

本文介绍了如何在Delphi中获取系统当前进程名和进程ID。首先，需要引用"TLHelp32"单元。然后，通过创建进程快照、获取进程入口结构体信息，并循环列举系统中的进程，从而获取进程名和进程ID。具体代码包括定义相关变量、创建进程快照、获取第一个进程信息、循环列举进程、获取进程名和ID以及将信息添加到列表框中。
本文介绍了如何在De

获取系统当前进程名和进程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

※相关文章推荐※


※热评文章推荐※


※最新文章推荐※

最后修改：2009 年 08 月 16 日
© 允许规范转载
点赞的人是最酷的