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 thread.queue与synchronize的区别

Delphixe firemonkey 如何画图

Delphi flash控件使用

crc32.pas 第二版

Delphi istream与tstream之间的相互转换

Delphi 生成xml 方法 与 Delphi txt文件操作

Delphi fmx播放m4a声音文件

Delphi判断电脑连接到 internet 了吗？

Delphi生成guid的两种方法

学习使用Delphi for android 调用java类库

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

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