apprehenddemo.dpr

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

program ApprehendDemo;

uses
  Forms,
  FrmMain in 'FrmMain.pas' {FormMain},
  fullscrn in 'fullscrn.pas' {FullScreen},
  CompressQual in 'CompressQual.pas' {QualityForm},
  ScreenDelay in 'ScreenDelay.pas' {DelayDlg},
  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.CreateForm(TFormMain, FormMain);
    Application.CreateForm(TFullScreen, FullScreen);
    Application.CreateForm(TQualityForm, QualityForm);
    Application.CreateForm(TDelayDlg, DelayDlg);
    SplashForm.Close;
    repeat
      Application.ProcessMessages;
    until SplashForm.CloseQuery;
  finally SplashForm.Free; end;
  Application.Run;
end.