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

78125

Дата 22.12.2003, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 198
Регистрация: 20.1.2003
Где: Санкт-Петербург

Репутация: нет
Всего: нет

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

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

--------------------

купим подпись

Pakshin A. S.

Дата 22.12.2003, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

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

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

78125

Дата 22.12.2003, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 198
Регистрация: 20.1.2003
Где: Санкт-Петербург

Репутация: нет
Всего: нет

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

--------------------

купим подпись

78125

Дата 22.12.2003, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 198
Регистрация: 20.1.2003
Где: Санкт-Петербург

Репутация: нет
Всего: нет

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

Код


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'

--------------------

купим подпись

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »