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

program Project1;

uses

  windows,

  Messages;

 

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

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

var

rect:TRect;

index:Integer;

old:longint;

i:integer;

begin

if not IsWindowVisible(h) then

begin

Result:=true;

exit;

end;

{Прозрачность}

old:=GetWindowLongA(h,GWL_EXSTYLE) ;

SetWindowLongA(h,GWL_EXSTYLE,old or $80000);

for i:=1 to 255 do

begin

SetLayeredWindowAttributes(h, 0, i, $2);

Sleep(10);

end;

end;

//Основной код

var

h:THandle;

begin

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

while true do

begin

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

EnumWindows(@EnumWindowsWnd,0);

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

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

WaitForSingleObject(h, 1);

CloseHandle(h);

end;

end.