delphi怎么查看系统当前应用程序

来源：百度知道 编辑：UC知道 时间：2024/06/08 06:14:03
怎么样DELPHI查看系统当前都运行着那些应用程序.就是怎么用DELPHI查看Windows任务管理器中"应用程序"里的内容.
不行呀。程序运行时出错呀。都要USES什么?form1里是不是只有个BUTTON和Listbox1两个控件？我把你给的全码全复制过去了，可是不能用呀。如果可以的话你能把你的例子做好之后发到我邮箱吗？yang8410311@163.com或QQ：32230129 谢谢。
yueyun889哪个能运行.可是他是看当前的"进程"内的内容,我想看"应用程序"内的内容.

用一个线程吧.
给你一个事件,你可以用用看:
procedure TForm1.Button1Click(Sender: TObject);
var
ProcessName:String;
ProcessID:integer;
ListLoop:Boolean;
FsnapShotHandle:Thandle;
FProcessEntry32:TProcessEntry32;
begin
Fsnapshothandle:=CreateTooHelp32SnapShot(TH32CS_SNAPPROCESS,0);
FProcessEntry32.dwsize:=SizeOF(FProcessEntry32);
Listloop:=Process32First(FSnapshotHandle,FProcessEntry32);
with listLoop do begin
ProcessName:=FprocessEntry32.szExeFile;
ProcessID:=FProcessEntry32.th32ProcessID;
// 我写到列表框中了,你可以根据需要自己改
listbox1.Items.Add('Process NAME:')+ProcessNAme;
ListLoop:=Process32Next(FSnapshotHandle,FprocessEntry32);
end;
end;