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

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

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

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

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;

Недавно добавленные исходники
• Animation Loaders 950 • DeLiKaTeS Tetris (Тетрис) 5 889 • TDictionary Custom Sort 7 840 • Fast Watermark Sources 7 510 • 3D Designer 10 740 • Sik Screen Capture 8 063 • Patch Maker 8 267 • Айболит (remote control) 8 318 • ListBox Drag & Drop 7 145 • Доска для игры Реверси 101 002 • Графические эффекты 8 383 • Рисование по маске 7 761 • Перетаскивание изображений 6 356 • Canvas Drawing 6 729 • Рисование Луны 6 657 • Поворот изображения 5 794 • Рисование стержней 4 734 • Paint on Shape 3 439 • Генератор кроссвордов 4 425 • Головоломка Paletto 3 570 • Теорема Монжа об окружностях 4 369 • Пазл Numbrix 2 828 • Заборы и коммивояжеры 3 781 • Игра HIP 2 545 • Игра Go (Го) 2 551 • Симулятор лифта 2 945 • Программа укладки плитки 2 369 • Генератор лабиринта 3 120 • Проверка числового ввода 2 605 • HEX View 3 009

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

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