Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как разом закрыть все приложения?

Автор: 78125 22.12.2003, 13:34

К примеру работет у меня в системе пара программ....

Как не узнавая их названия, процессы, окна просто приказать системе их закрыть?

Автор: Pakshin A. S. 22.12.2003, 14:37

Первая мысля: перезагрузить Windows

А если сурьёзно, то по-моему никак не получиться без дополнительных сведений, а вообще почему такие жёсткие условия

Автор: 78125 22.12.2003, 15:16

ну я думал вдруг есть апишная функция которая это умеет

Автор: 78125 22.12.2003, 15:25

нашел в факу вот тако но есть ошибка

Код


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;

[Error] Unit1.pas(67): Undeclared identifier: 'PTaskEntry'