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

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

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

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

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 (Тетрис) 277 • TDictionary Custom Sort 3 432 • Fast Watermark Sources 3 178 • 3D Designer 4 938 • Sik Screen Capture 3 431 • Patch Maker 3 635 • Айболит (remote control) 3 836 • ListBox Drag & Drop 3 099 • Доска для игры Реверси 82 496 • Графические эффекты 4 037 • Рисование по маске 3 333 • Перетаскивание изображений 2 707 • Canvas Drawing 2 855 • Рисование Луны 2 660 • Поворот изображения 2 272 • Рисование стержней 2 208 • Paint on Shape 1 608 • Генератор кроссвордов 2 289 • Головоломка Paletto 1 806 • Теорема Монжа об окружностях 2 303 • Пазл Numbrix 1 709 • Заборы и коммивояжеры 2 085 • Игра HIP 1 304 • Игра Go (Го) 1 255 • Симулятор лифта 1 502 • Программа укладки плитки 1 248 • Генератор лабиринта 1 574 • Проверка числового ввода 1 392 • HEX View 1 524 • Физический маятник 1 379

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

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