bsp;                    const dwFlags : DWORD): DWORD; stdcall;
   
function AnimateWindow(const hWnd : HWND; const dwTime : DWORD;
                       const dwFlags : DWORD): DWORD;

implementation

function AnimateWindow(const hWnd : HWND; const dwTime : DWORD;
                       const dwFlags : DWORD): DWORD;
var
   DLLHandle : THandle;
   AnimateWindow : FAnimateWindow;
begin
   Result := 0;
   DLLHandle := LoadLibrary(''user32.dll'');
   @AnimateWindow := GetProcAddress(DllHandle,''AnimateWindow'');
   Result := AnimateWindow(hWnd, dwTime, dwFlags);
end;

..
end.

怎么样，是有些麻烦吧，很值的。
    如果你不想让自己的程序挑三拣四，
    如果你不想让自己被称为废物程序员，呵呵，试一下吧。