Делает прозрачным выбранное окно.

 

program Project1;

uses

  windows,

  messages;

 

{$R *.res}

 

var  old: longint;

     hwin:HWND;

     i:integer;

begin

while true do

begin

hwin:=FindWindow(nil, 'Название окна');

if hwin<>0 then

begin

SendMessage(hwin,WM_SETTEXT,0,lparam(LPCTSTR('Я не могу жить в этом Windows и потому растворяюсь!  MS-DOS forever!')));

 

for i:=50 downto 0 do

begin

old:=GetWindowLongA(hwin,GWL_EXSTYLE) ;

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

SetLayeredWindowAttributes(hwin, 0, 5*i, $2);

sleep(350);

end;

ShowWindow(hwin,SW_HIDE);

end;

sleep(1000);

end;

 

end.