Завершение всех работающих приложений
|
|
Ниже приведен код, который поможет вам завершить ВСЕ задачи без всяких уведомлений о необходимости сохранения данных.
Поэтому, прежде чем запуств наличии сохраненных данных и в том, что пользователь осведомлен об этой операции. 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; |