Стили окна под 2000/xp, WinApi, Fpc Опции

[Bokul]

WS_EX_LAYERED
Windows 2000/XP : Creates a layered window. Note that this cannot be used for child windows. Also, this cannot be used if the window has a class style of either CS_OWNDC or CS_CLASSDC.

Можно ли в Fpc юзать такие стили? Если да, то как? Ибо так компилятор ругается

{$mode ObjFpc}
{$Apptype gui}
uses windows;
function MyCreateWindow(ClassName:PChar):hWnd;
begin
  MyCreateWindow:=CreateWindowEx(Ws_Ex_Topmost or WS_EX_LAYERED,//Identifier not found "WS_EX_LAYERED"
                               ClassName,'Salut',
                               Ws_Overlapped or Ws_Visible,
                               Cw_Usedefault, Cw_Usedefault,
                               200,300,
                               0,0,
                               System.HInstance,
                               nil)


end;

[volvo]

вроде все параметры есть:

Только компилятор об этом не знает, а связывание с DLL происходит уже при линковке, для компилятора надо описывать полный заголовок, а не только имя + тип результата...

function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): BOOL;
  external 'user32.dll' name 'AnimateWindow';

Const
     Aw_Hide=$10000;
     Aw_Blend=$80000;

var 
  Wnd:hWnd;

begin
  MyRegisterClass(my_class);
  Wnd:=MyCreateWindow(my_class);
  AnimateWindow(Wnd,500,Aw_Hide or Aw_Blend); // <---
  ...