psdemo.dpr

来自「免费控件PicShow的最新版本」· DPR 代码 · 共 21 行

program PSDemo;

uses
  Forms,
  Main in 'Main.pas' {MainForm},
  Splash in 'Splash.pas' {SplashForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'TPicShow Demo';
  with TSplashForm.Execute do
    try
      Application.CreateForm(TMainForm, MainForm);
    finally
      Free;
    end;
  Application.Run;
end.