Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как выставить в чужом окне AlphaBlendValue??? [D6, Win2k, WinXP]


Ich Hasse ©   (2002-07-20 22:18:00) 

Мне надо написать прогу, которая будет менять прозрачность других окон. Про эти окна известно все, что надо:
Handle, Class и т.д.


Ich Hasse   (2002-07-21 12:20:00) [1]

Понятно, большое спасибо.


Proton   (2002-07-20 23:39:00) [2]

unit LayWnd;

interface

uses windows;

Const
LWA_COLORKEY = $00000001;
LWA_ALPHA = $00000002;
WS_EX_LAYERED = $00080000;

VAR SetLayeredWindowAttributes : function (
hwnd : HWND; // handle to the layered window
crKey : COLORREF; // specifies the color key
bAlpha : BYTE; // value for the blend function
dwFlags : DWORD // action
) : BOOL ; stdcall;

implementation

var z:DWORD;

initialization
z:=LoadLibrary("USER32.DLL");
@SetLayeredWindowAttributes :=
GetProcAddress(Z,"SetLayeredWindowAttributes");
end.


Наверх

Титульная страница Поиск, карта сайта Написать письмо