[X-rem]

Сообщение от 4kusNick

Переводил из асма, мог ошибиться:

Код:

 
var
 pSLWA: Double;
 hHandle: THandle;
begin
 
 //... тут добавляем к стилю окна WS_EX_LAYERED
 
  hHandle := GetModuleHandleA('User32.dll');
  pSLWA := GetProcAddress(hHandle,'SetLayeredWindowAttributes');
  asm
        push LMA_ALPHA
        push 240 // это уровень непрозрачности
        push 0
        push hWin
        call pSLWA
  end;

А вот оригинал (MASM), на всяк случай:

Код:

        invoke GetWindowLongA,hWin,GWL_EXSTYLE
        or eax,WS_EX_LAYERED
        invoke SetWindowLongA,hWin,GWL_EXSTYLE,eax
        invoke GetModuleHandleA,ADDR User32
        invoke GetProcAddress,eax,ADDR SLWA
        mov pSLWA,eax
        push LMA_ALPHA
        push 240 
        push 0
        push hWin
        call pSLWA

А как добавить WS_EX_LAYERED ???