Платные хостинги     Раскрутка сайта     Книги по программированию

Как разом закрыть все приложения?

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

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

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

- нашел в факу вот тако но есть ошибкаКод 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; highlightSyntax('delphimE5OTR','delphi'); [Error] Unit1.pas(67): Undeclared identifier: 'PTaskEntry'

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD