apprehenddemo.dpr

来自「Apprehend Screen Capture Component Versi」· DPR 代码 · 共 40 行

program ApprehendDemo;

uses
  Forms,
  FrmMain in 'FrmMain.pas' {FormMain},
  fullscrn in 'fullscrn.pas' {FullScreen},
  ScreenDelay in 'ScreenDelay.pas' {DelayDlg},
  frmEffects in 'frmEffects.pas' {EffectsDlg},
  frmFrmt in 'frmFrmt.pas' {FormatConversionForm},
  frmPOpt in 'frmPOpt.pas' {PrintOptionForm},
  frmStat in 'frmStat.pas' {frmStatus},
  frmProperty in 'frmProperty.pas' {InfoDlg},
  Splash in 'Splash.pas' {SplashForm};

{$R *.RES}

begin
  SplashForm := TSplashForm.Create(Application);
  try
    SplashForm.Show;
    SplashForm.Refresh;
    Application.Initialize;
    SplashForm.Update;
    Application.Title := 'Apprehend Demo';
    Application.HelpFile := 'C:\Program Files\Borland\Delphi5\Lib\ASG\Demo\Help\APPREHEND SCREEN CAPTURE.HLP';
    Application.CreateForm(TFormMain, FormMain);
    Application.CreateForm(TFullScreen, FullScreen);
    Application.CreateForm(TDelayDlg, DelayDlg);
    Application.CreateForm(TEffectsDlg, EffectsDlg);
    Application.CreateForm(TfrmStatus, frmStatus);
    Application.CreateForm(TInfoDlg, InfoDlg);
    SplashForm.Close;
    repeat
      Application.ProcessMessages;
    until SplashForm.CloseQuery;
  finally SplashForm.Free; end;
  Application.Run;
end.