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

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

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

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

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 (Тетрис) 908 • TDictionary Custom Sort 3 826 • Fast Watermark Sources 3 531 • 3D Designer 5 460 • Sik Screen Capture 3 781 • Patch Maker 4 000 • Айболит (remote control) 4 197 • ListBox Drag & Drop 3 440 • Доска для игры Реверси 85 893 • Графические эффекты 4 463 • Рисование по маске 3 660 • Перетаскивание изображений 3 027 • Canvas Drawing 3 306 • Рисование Луны 3 077 • Поворот изображения 2 634 • Рисование стержней 2 399 • Paint on Shape 1 796 • Генератор кроссвордов 2 516 • Головоломка Paletto 1 998 • Теорема Монжа об окружностях 2 628 • Пазл Numbrix 1 858 • Заборы и коммивояжеры 2 393 • Игра HIP 1 447 • Игра Go (Го) 1 404 • Симулятор лифта 1 657 • Программа укладки плитки 1 406 • Генератор лабиринта 1 741 • Проверка числового ввода 1 533 • HEX View 1 695 • Физический маятник 1 538

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

Похожие по теме исходники