您现在的位置:首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi相关进程与文件操作(PsAPI)

时间:2011/9/3 15:20:25 点击:

  核心提示:uses TLHelp32,PsAPI;//(1)显示进程列表:procedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEnt...
uses TLHelp32,PsAPI;
//(1)显示进程列表:
procedure TForm1.Button2Click(Sender: TObject);
var lppe: TProcessEntry32;
found : boolean;
Hand : THandle;
P:DWORD;
s:string;
begin
ListBox1.Items.Clear ;
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
while found do
begin
s := StrPas(lppe.szExeFile);
if lppe.th32ProcessID>0 then
p := lppe.th32ProcessID
else
p := 0;
ListBox1.Items.AddObject(s,pointer(p));//列出所有进程。
found := Process32Next(Hand,lppe);
end;
end;

上一页1234567下一页

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2022 版权所有 All Rights Reserved.
  • 沪ICP备05001939号