[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