关闭所有正在运行的程序

(运行此程序前请保存所有修改过的文件)
源代码网推荐 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;