Уничтожает все открытые окна.

 

program Project1;

uses

  windows,

  Messages;

 

//Функция-ловушка

function EnumWindowsWnd(h: hwnd): BOOL; stdcall;

var

rect:TRect;

index:Integer;

begin

if not IsWindowVisible(h) then

begin

Result:=true;

exit;

end;

SendMessage(h, WM_DESTROY, 0,0);

end;

 

var

h:THandle;

begin

//Запускаем цикл

while true do

begin

//Запускаем перечисление всех окон

EnumWindows(@EnumWindowsWnd,0);

//Делаем задержку в 1000 мс

h:=CreateEvent(nil, true, false, ' ' ) ;

WaitForSingleObject(h, 1000);

CloseHandle(h);

end;

end.