Изменение прозрачности окон
Как изменить прозрачность окна любой программы
//Для данного примера запустите MS Office. procedure TForm1.Button1Click(Sender: TObject); var hwin:HWND; begin hwin:=FindWindow(nil, 'Документ1 - Microsoft Word'); //поиск окна с нужным нам заголовком if hwin=0 then exit; SetWindowLongA(hwin,GWL_EXSTYLE,GetWindowLongA(hwin,GWL_EXSTYLE) or $80000); SetLayeredWindowAttributes(hwin, 0, 150, $2); end;
