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 获取动态创建的image与scrollbox的相对位置

Delphi socket connect timeout 套字节链接超时设置

d10环境下调用hidcontroller1.0.35获取数据乱码问题

Delphi 10 firedac 连接池设置

indy tidtcpclient 的一个用法上要留意的问题，以及 http

Delphi 如何打开记事本并显示指定内容

Delphi stringgrid行列的增加和删除

Delphi操作ini配置文件

Delphi瞬间消除无用托盘图标(刷新托盘)

Delphi 用代码实现为程序创建快捷方式的二种方法

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

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