关闭所有正在运行的程序

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