Закрыть все приложения

[Михаил Юрьевич]

Подскажите как программно закрыть все работающие приложения в частности запущенную игру

[N!ckeL]

procedure Closewnd (h:hwnd lparam:integer);
begin
 SendMessage(h, wm_destroy, 0, 0);
end;

procedure CloseAllApplication;
var
 h:hwnd;
 b:boolean;
begin
 b:=true;
 while b=true do
  EnumWindows(@CloseWnd);
end;

[Михаил Юрьевич]

Сообщение от N!ckeL

procedure Closewnd (h:hwnd lparam:integer);
begin
 SendMessage(h, wm_destroy, 0, 0);
end;

procedure CloseAllApplication;
var
 h:hwnd;
 b:boolean;
begin
 b:=true;
 while b=true do
  EnumWindows(@CloseWnd);
end;

У меня при компиляции на строке EnumWindows(@CloseWnd) пишет не актуальный параметр

[Stilet]

EnumWindows(@CloseWnd);

Там еще параметр один нужен EnumWindows(@CloseWnd,0);

[Михаил Юрьевич]

Сообщение от Stilet

Там еще параметр один нужен EnumWindows(@CloseWnd,0);

Все равно пишет не актуальный параметр,может кто знает еще какие коды,
что бы закрывать работающие приложения

[Airou]

А мне интересно зачем обьявлена b?
# b:=true;
# while b=true

Это что цикл бесконечный чтоли будет?