计算机等级考试二级Delphi辅导知识：Win32API使用特殊情况_第2页

　　FAnimateWindow = function(
　　const hwnd : HWND; //仅对窗口有效
　　const dwTime : DWORD; //动画持续时间，默认200ms
　　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.
　　怎么样，是有些麻烦吧，很值的。
　　如果你不想让自己的程序挑三拣四，如果你不想让自己被称为废物程序员，呵呵，试一下吧。