apprehenddemo.dpr

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

program ApprehendDemo;

uses
  Forms,
  FrmMain in 'FrmMain.pas' {FormMain},
  fullscrn in 'fullscrn.pas' {FullScreen},
  CompressQual in 'CompressQual.pas' {QualityForm},
  ScreenDelay in 'ScreenDelay.pas' {DelayDlg},
  frmConvBW in 'frmConvBW.pas' {fConvBW},
  frmresres in 'frmresres.pas' {fResize},
  frmStat in 'frmStat.pas' {frmStatus},
  frmPropDlg in 'frmPropDlg.pas' {PropertiesDlg},
  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(TQualityForm, QualityForm);
    Application.CreateForm(TDelayDlg, DelayDlg);
    Application.CreateForm(TfrmStatus, frmStatus);
    Application.CreateForm(TPropertiesDlg, PropertiesDlg);
    SplashForm.Close;
    repeat
      Application.ProcessMessages;
    until SplashForm.CloseQuery;
  finally SplashForm.Free; end;
  Application.Run;
end.