对不起，一不小心把问题放在了非技术问题里了，请各位大虾过去看看，是关于系统消息的。有劳了。(0分)

请教大虾：如何知道系统当前所有运行的程序，怎么样可以选择性的关闭某个选中的程序

uses tlhelp32;
procedure TForm1.Button1Click(Sender: TObject);
VAR
peROCESSENTRY32;
me:MODULEENTRY32;
hp,hm,hdd,ppp:Thandle;
b,b1:boolean;
pp:EnumWindowsProc;
begin
hp:=CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS,0);
pe.dwSize:=SizeOf(pe);
b:=Process32First(hp,pe);
while b do
begin
hm:=CreateToolHelp32SnapShot(TH32CS_SNAPModule,pe.th32ProcessID);
me.dwSize:=sizeof(ModuleEntry32);
if Module32First(hm,me) then
begin
b1:=Module32First(hm,me);
while b1 do
begin
if me.th32ModuleID=pe.th32ModuleID then
begin
listbox1.Items.AddObject(me.szExePath,Tobject(pe.th32ProcessID));
end;
b1:=Module32Next(hm,me);
end;
end;
b:=Process32Next(hp,pe);
end;
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
peROCESSENTRY32;
PPP:Thandle;
begin
pe.th32ProcessID:=Cardinal(listbox1.Items.Objects[listbox1.ItemIndex]);
ppp:=OpenProcess(PROCESS_ALL_ACCESS, FALSE,
pe. th32ProcessID);
TerminateProcess(ppp,0);
listbox1.Items.Delete(listbox1.ItemIndex);

end;

接受答案了.