//-------------------------------------------------------------------------
// Copyright (c) 1999 - Sortland Automasjon <automasjon@sortland.net>
//
// All Rights Reserved
//
// web: http://www.sortland.net         fax: +47 5342 0281
//
// Delphi Snippets : http://www.sortland.net/Delphi/Snippets.htm
//-------------------------------------------------------------------------
program SplashDemo; // Splash Screen with or without delay {$DEFINE USE_SPLASH_DELAY}

uses
  Forms,
  Splash in 'Splash.pas' {SplashScreen},
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  SplashScreen := TSplashScreen.Create(Application);
  try
    SplashScreen.Show;
    SplashScreen.Update;
    Application.Title := 'SplashDemo from Sortland Automasjon';
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
{$IFDEF USE_SPLASH_DELAY}
    repeat
      Application.ProcessMessages;
    until SplashScreen.CloseQuery;
{$ENDIF USE_SPLASH_DELAY}
    SplashScreen.Close;
  finally
    SplashScreen.Free;
    SplashScreen := nil;
  end;
  Application.Run;
end.

---

Delphi Snippets - may 1999 - Arnulf Sortland