用Delphi编的程序最小化时没有动态效果，可以用以下方法实现。
一、New Application。
二、New Form，生成Form2。
三、New Unit，在implementation后面加上：
initialization
islibrary :=true;
四、Save All，为工程取好名字，Unit建议取名为“RunFirst.pas”。
五、打开工程文件，把“RunFirst in 'RunFirst.pas';”放到“Forms,”这一行前面去，如下：
program Project1;
uses
RunFirst in 'RunFirst.pas',
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.ShowMainForm :=false;
islibrary :=true;
Application.CreateForm(TForm1, Form1);
Form2 :=TForm2.Create(Application) ;
Form2.Show ;
Form2.Update ;
Application.Run;
end.
六、在Form2的OnClose事件中写如下语句：
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate
end;
