scale.~dpr

来自「精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览」· ~DPR 代码 · 共 24 行

program Scale;

uses
  windows,Forms,
  ScaleF in 'ScaleF.pas' {Form1},
  Unit3 in 'Unit3.pas' {Form3},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

begin
  Application.Initialize;
  Form2:=TForm2.Create(Form2); //创建启动画面窗口
  Form2.Show;  //显示启动画面窗口
  Form2.Update;
  Application.CreateForm(TForm1, Form1); //创建工程窗口
  Application.CreateForm(TForm2, Form2);
  Sleep(1000); //启动画面窗口显示一秒钟
  Form2.Hide;   //隐藏启动画面窗口
  Form2.Free;   //释放启动画面窗口
  Application.Run;  //运行工程
end.