Завершение всех работающих приложений

Как мне завершить все работающие задачи?

Ниже приведен код, который поможет вам завершить ВСЕ задачи без всяких уведомлений о необходимости сохранения данных.

Поэтому, прежде чем запустить этот код, убедитесь в наличии сохраненных данных и в том, что пользователь осведомлен об этой операции.

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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 649 • TDictionary Custom Sort 6 652 • Fast Watermark Sources 6 432 • 3D Designer 9 372 • Sik Screen Capture 6 762 • Patch Maker 7 157 • Айболит (remote control) 7 164 • ListBox Drag & Drop 6 019 • Доска для игры Реверси 97 617 • Графические эффекты 7 344 • Рисование по маске 6 632 • Перетаскивание изображений 5 501 • Canvas Drawing 5 883 • Рисование Луны 5 610 • Поворот изображения 5 111 • Рисование стержней 3 687 • Paint on Shape 2 914 • Генератор кроссвордов 3 813 • Головоломка Paletto 3 063 • Теорема Монжа об окружностях 3 869 • Пазл Numbrix 2 547 • Заборы и коммивояжеры 3 268 • Игра HIP 2 239 • Игра Go (Го) 2 171 • Симулятор лифта 2 551 • Программа укладки плитки 2 186 • Генератор лабиринта 2 686 • Проверка числового ввода 2 331 • HEX View 2 668 • Физический маятник 2 305