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

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

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

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

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;

Недавно добавленные исходники
• TDictionary Custom Sort 535 • Fast Watermark Sources 900 • 3D Designer 1 828 • Sik Screen Capture 1 474 • Patch Maker 1 482 • Айболит (remote control) 1 406 • ListBox Drag & Drop 1 175 • Доска для игры Реверси 21 821 • Графические эффекты 1 354 • Рисование по маске 1 295 • Перетаскивание изображений 1 096 • Canvas Drawing 968 • Рисование Луны 814 • Поворот изображения 770 • Рисование стержней 814 • Paint on Shape 493 • Генератор кроссвордов 762 • Головоломка Paletto 667 • Теорема Монжа об окружностях 855 • Пазл Numbrix 617 • Заборы и коммивояжеры 848 • Игра HIP 557 • Игра Go (Го) 527 • Симулятор лифта 548 • Программа укладки плитки 509 • Генератор лабиринта 565 • Проверка числового ввода 524 • HEX View 600 • Физический маятник 528 • Задача коммивояжера 560

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

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