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中对进程内存进行读写

Delphi firdac 对 sqlite 数字, int64也会被截断，会出现负数情况处理

Delphi tms web core 从js调用pascal函数

delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies

Delphi计算md5

Delphi 时间与字符串

Delphi ado 连接 excel （附excel各个版本的版本号）

Delphi - system.runerror

Delphi tstringlist删除重复项

Delphi 快速读取txt 指定行的数据

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

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