Delphi实现获取进程列表及相关信息的实例

Delphi实现获取进程列表及相关信息的实例

前言：

闲着没事，看着任务管理器好玩，查资料先简单实现一下，代码中没有加入获取CPU占用率的代码，这个代码网上很多，只是不喜欢那种写法，这里就不写了。以后继续完善，对于System Process和System的信息还没法获得，那位兄弟知道可以提个醒。

 代码如下

unit Main; 
 
interface 
 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs,TlHelp32, StdCtrls, ComCtrls,psAPI; 
 
type 
 PTokenUser  =  ^TTokenUser; 
 _TOKEN_USER  =  record 
 User:  TSIDAndAttributes; 
 end; 
 TTokenUser  =  _TOKEN_USER; 
 
 
 TForm1 = class(TForm) 
  btn_Get: TButton; 
  Lv_Process: TListView; 
  procedure btn_GetClick(Sender: TObject); 
  procedure FormCreate(Sender: TObject); 
 private 
  { Private declarations } 
  function GetMemUsedText(memsize:Cardinal):string; 
  function GetProcessPriority(priority:Cardinal):string; 
  function GetCupUsedPercent(hprocess:THandle):string; 
  function GetProcessUser(hprocess:THandle):string; 
 public 
  { Public declarations } 
 end; 
 
var 
 Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
{ 
作用：提权到Debug，为了在Vista和Win7下读取系统信息，运行时需要以管理员身份运行 
} 
function PromoteProcessPrivilege(Processhandle:Thandle;Token_Name:pchar):boolean; 
var 
  Token:cardinal; 
  TokenPri:_TOKEN_PRIVILEGES; 
  Luid:int64; 
  i:DWORD; 
begin 
  Result:=false; 
  //打开令牌 
  if OpenProcessToken(Processhandle,TOKEN_ADJUST_PRIVILEGES,Token) then 
  begin 
   //看系统权限的特权值 
    if LookupPrivilegeValue(nil,Token_Name,Luid) then 
    begin 
      TokenPri.PrivilegeCount:=1; 
      TokenPri.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED; 
      TokenPri.Privileges[0].Luid:=Luid; 
      i:=0; 
      //提权 
      if AdjustTokenPrivileges(Token,false,TokenPri,sizeof(TokenPri),nil,i) then 
        Result:=true; 
    end; 
  end; 
  CloseHandle(Token); 
end; 
 
function AddFileTimes(KernelTime, UserTime: TFileTime): TDateTime; 
var 
 SysTimeK, SysTimeU: TSystemTime; 
begin 
 FileTimeToSystemTime(KernelTime, SysTimeK); 
 FileTimeToSystemTime(UserTime, SysTimeU); 
 Result :=SystemTimeToDateTime(SysTimeK)+SystemTimeToDateTime(SysTimeU); 
end; 
 
//获取CPU时间 
function GetProcCPUTime(procID:THandle): TDateTime; 
var 
 CreationTime, ExitTime, KernelTime, UserTime: TFileTime; 
begin 
 GetProcessTimes(procID, CreationTime, ExitTime, KernelTime,UserTime); 
 Result := AddFileTimes(KernelTime, UserTime); 
end; 
 
procedure TForm1.btn_GetClick(Sender: TObject); 
var 
 hSnapShot,hProcess,hModel:THandle; 
 pEntry:TProcessEntry32; 
 find:Boolean; 
 item:TListItem; 
 //内存信息 
 pPMC:PPROCESS_MEMORY_COUNTERS; 
 pPMCSize,ProcessPriority:Cardinal; 
 n:DWORD; 
 fName:array [0..MAX_PATH-1] of char; 
begin 
 //创建进程快照 
 hSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); 
 pEntry.dwSize := SizeOf(pEntry); 
 //第一个进程 
 find := Process32First(hSnapShot,pEntry); 
 while find do 
 begin 
  item := Lv_Process.Items.Add; 
  //进程名 
  item.Caption := pEntry.szExeFile; 
  //进程ID 
  item.SubItems.Add(IntToStr(pEntry.th32ProcessID)); 
  pPMCSize := SizeOf(PROCESS_MEMORY_COUNTERS); 
  GetMem(pPMC,pPMCSize); 
  pPMC.cb := pPMCSize; 
  //打开进程，增加PROCESS_VM_READ权限，以便后面获取完整路径时使用 
  hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,False,pEntry.th32ProcessID); 
  //获取内存信息 
  if GetProcessMemoryInfo(hProcess,pPMC,pPMCSize) then 
  begin 
   //取得进程的用户 
   item.SubItems.Add(GetProcessUser(hProcess)); 
   //内存使用 
   item.SubItems.Add(GetMemUsedText(pPMC.WorkingSetSize)); 
   //内存峰值 
   item.SubItems.Add(GetMemUsedText(pPMC.PeakWorkingSetSize)); 
   //CPU时间 
   item.SubItems.Add(FormatDateTime('hh:mm:ss',GetProcCPUTime(hProcess))); 
   //获取优先级 
   ProcessPriority := GetPriorityClass(hProcess); 
   item.SubItems.Add(GetProcessPriority(ProcessPriority)); 
   //根据进程句柄找到模块句柄 
   ENumProcessModules(hProcess,@hModel,SizeOf(hModel),n); 
   //取得完整路径 
   GetModuleFileNameEx(hProcess,hModel,fName,Length(fName)); 
   item.SubItems.Add(fName); 
  end; 
  FreeMem(pPMC); 
  CloseHandle(hProcess); 
  find := Process32Next(hSnapShot,pEntry); 
 end; 
end; 
 
function TForm1.GetCupUsedPercent(hprocess: THandle): string; 
begin 
end; 
 
function TForm1.GetMemUsedText(memsize: Cardinal): string; 
begin 
 Result := IntToStr(memsize div 1024) + ' K'; 
end; 
 
function TForm1.GetProcessPriority(priority: Cardinal): string; 
begin 
 case priority of 
  IDLE_PRIORITY_CLASS: Result := '低'; 
  NORMAL_PRIORITY_CLASS: Result := '普通'; 
  HIGH_PRIORITY_CLASS: Result := '高'; 
  REALTIME_PRIORITY_CLASS: Result := '实时'; 
 end; 
end; 
 
//获取进程的所属用户 
function TForm1.GetProcessUser(hprocess: THandle): string; 
var 
 hToken:THandle; 
 dwSize,dwUserSize,dwDomainSize:DWORD; 
 pUser:PTokenUser; 
 szUserName, szDomainName: array of Char; 
 peUse:  SID_NAME_USE; 
begin 
 //打开权限 
 if not OpenProcessToken(hprocess,TOKEN_QUERY,hToken) then Exit; 
 //获取令牌信息，这里第三个参数使用了nil，是先返回实际大小dwSize，然后根据这个大小去分配内存 
 GetTokenInformation(hToken,TokenUser,nil,0,dwSize); 
 pUser := nil; 
 //分配空间 
 ReallocMem(pUser,dwSize); 
 dwUserSize := 0; 
 dwDomainSize := 0; 
 //获取信息 
 if not GetTokenInformation(hToken,TokenUser,pUser,dwSize,dwSize) then Exit; 
 //查找用户信息，先返回用户名和域名的大小，当然你也可以一次性得到，即不使用动态数组 
 LookupAccountSid(nil,pUser.User.Sid,nil,dwUserSize,nil,dwDomainSize,peUse); 
 if (dwUserSize <> 0) and (dwDomainSize <> 0) then 
 begin 
  //分配长度 
  SetLength(szUserName,dwUserSize); 
  SetLength(szDomainName,dwDomainSize); 
  //再次，获取用户名和域名 
  LookupAccountSid(nil,pUser.User.Sid,PChar(szUserName),dwUserSize,PChar(szDomainName),dwDomainSize,peUse); 
 end; 
 Result := PChar(szUserName)+'/'+PChar(szDomainName); 
 CloseHandle(hToken); 
 FreeMem(pUser); 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 PromoteProcessPrivilege(GetCurrentProcess,'SeDebugPrivilege'); 
end; 
 
end. 

 运行图片

如有疑问请留言或者到本站社区交流讨论，感谢阅读，希望能帮助到大家，谢谢大家对本站的支持！

# Delphi实现获取进程列表  # Delphi实现获取进程列表的方法  # Delphi基本图像处理方法汇总  # Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法  # delphi实现将BMP格式图形转化为JPG格式图形的方法  # delphi字符串分隔函数用法实例  # Delphi7中群发Email邮件的方法  # delphi实现保存和读取图片的方法  # Delphi远程连接Mysql的实现方法  # 句柄  # 令牌  # 看着  # 第一个  # 就不  # 如有  # 不喜欢  # 那位  # 希望能  # 相关信息  # 写了  # 要以  # 第三个  # 谢谢大家  # 你也可以  # 时需  # 任务管理器  # 即不  # 疑问请  # 占用率 

相关文章： 高防服务器：AI智能防御DDoS攻击与数据安全保障  如何通过多用户协作模板快速搭建高效企业网站？  北京网站制作的公司有哪些,北京白云观官方网站？  手机网站制作与建设方案,手机网站如何建设？  制作门户网站的参考文献在哪,小说网站怎么建立？  陕西网站制作公司有哪些,陕西凌云电器有限公司官网？  如何在橙子建站上传落地页？操作指南详解  如何在自有机房高效搭建专业网站？  建站之星安装步骤有哪些常见问题？  制作网站建设的公司有哪些,网站建设比较好的公司都有哪些？  怎么将XML数据可视化 D3.js加载XML  详解免费开源的DotNet二维码操作组件ThoughtWorks.QRCode（.NET组件介绍之四）  C++时间戳转换成日期时间的步骤和示例代码  七夕网站制作视频,七夕大促活动怎么报名？  javascript中对象的定义、使用以及对象和原型链操作小结  香港服务器建站指南：免备案优势与SEO优化技巧全解析  网站制作知乎推荐,想做自己的网站用什么工具比较好？  如何快速搭建自助建站会员专属系统？  如何挑选高效建站主机与优质域名？  网站建设制作、微信公众号,公明人民医院怎么在网上预约？  专业商城网站制作公司有哪些,pi商城官网是哪个？  如何高效配置香港服务器实现快速建站？  如何通过虚拟主机快速搭建个人网站？  黑客入侵网站服务器的常见手法有哪些？  如何在企业微信快速生成手机电脑官网？  如何通过IIS搭建网站并配置访问权限？  智能起名网站制作软件有哪些,制作logo的软件？  如何用wdcp快速搭建高效网站？  公司网站制作价格怎么算,公司办个官网需要多少钱？  微信推文制作网站有哪些,怎么做微信推文，急？  电影网站制作价格表,那些提供免费电影的网站，他们是怎么盈利的？  学校为何禁止电信移动建设网站？  h5在线制作网站电脑版下载,h5网页制作软件？  西安专业网站制作公司有哪些,陕西省建行官方网站？  香港网站服务器数量如何影响SEO优化效果？  建站之星如何快速更换网站模板？  php json中文编码为null的解决办法  建站主机选购指南：核心配置与性价比推荐解析  建站主机默认首页配置指南：核心功能与访问路径优化  如何有效防御Web建站篡改攻击？  微网站制作教程,我微信里的网站怎么才能复制到浏览器里？  ,网页ppt怎么弄成自己的ppt？  建站之星如何取消后台验证码生成？  建站主机如何选？性能与价格怎样平衡？  无锡营销型网站制作公司,无锡网选车牌流程？  单页制作网站有哪些,朋友给我发了一个单页网站，我应该怎么修改才能把他变成自己的呢，请求高手指点迷津？  在线ppt制作网站有哪些软件,如何把网页的内容做成ppt？  建站VPS能否同时实现高效与安全翻墙？  厦门模型网站设计制作公司,厦门航空飞机模型掉色怎么办？  建站之星CMS五站合一模板配置与SEO优化指南