动画打开窗口和关闭窗口的函数是什么？？？？在线等待！

[xingxing]

动画打开窗口和关闭窗口的函数是什么？？？？

[MFC2001]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(handle,500,AW_Center);
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(handle,500,AW_Center or AW_Hide or AW_BLEND);
end;

end.

[dafeifei]

是说的flash动画吗？
那就要用到 fscommand 了啊

[zlb_zc]

animatewindow(handle,2000,aw_center);