psdemo.dpr

来自「GREATIS Print Suite Pro for Delphi (3-7,」· DPR 代码 · 共 28 行

(*  GREATIS PRINT SUITE DEMO                     *)
(*  Copyright (C) 2001-2007 Greatis Software     *)
(*  http://www.greatis.com/delphicb/printsuite/  *)
(*  http://www.greatis.com/bteam.html            *)

program PSDemo;

uses
  Forms,
  PSDemoUnit in 'PSDemoUnit.pas' {frmMain},
  Splash in 'Splash.pas' {frmSplash};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := 'Print Suite Demo';
  with TfrmSplash.Create(nil) do
  try
    Show;
    Update;
    Application.CreateForm(TfrmMain, frmMain);
  finally
    Free;
  end;
  Application.Run;
end.