Delphi 关闭所有正在运行的程序

本文整理自网络，侵删。

 (运行此程序前请保存所有修改过的文件) 
procedure TForm1.ButtonKillAllClick(Sender: TObject); 
var 
pTask : PTaskEntry; 
Task : Bool; 
ThisTask: THANDLE; 
begin 
GetMem (pTask, SizeOf (TTaskEntry)); 
pTask^.dwSize := SizeOf (TTaskEntry); 
Task := TaskFirst (pTask); 
while Task do 
begin 
if pTask^.hInst = hInstance then 
ThisTask := pTask^.hTask 
else 
TerminateApp (pTask^.hTask, NO_UAE_BOX); 
Task := TaskNext (pTask); 
end; 
TerminateApp (ThisTask, NO_UAE_BOX); 
end;
 

相关阅读 >>

Delphi获取进程pid

Delphi 通�^窗口句柄或窗口标题得到进程句柄

Delphi url 编码的装换

Delphi应用程序的调试（1-10）

Delphi 请求时间，为当前时间，数值为1970-01-01以来的毫秒数

Delphi 另类计算程序代码运行耗时

Delphi datasnap 2009的简单使用

Delphi 固定保持datetime日期格式

Delphi xe 获取 android application version 版本

Delphi代码，直截注入别的进程，之后直截运行在别的进程中的代码!

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 关闭所有正在运行的程序