Email服务器

开发平台：
Delphi

Splash.pas：源码内容
							unit Splash;
(******************************************************************************)
(*                                                                            *)
(* Hermes Splash Window (Screen)                                              *)
(* Part of Hermes SMTP/POP3 Server.                                           *)
(* Copyright(C) 2000 by Alexander J. Fanti, All Rights Reserver Worldwide.    *)
(*                                                                            *)
(* Created January 19, 2000 by Alexander J. Fanti.  See License.txt           *)
(*                                                                            *)
(* Used by: Hermes                                                            *)
(*                                                                            *)
(* Description: This is a splash screen displayed by the application as it    *)
(*              starts.                                                       *)
(*                                                                            *)
(* Revisions: 1/21/2000  AJF  Commented                                       *)
(*                                                                            *)
(******************************************************************************)
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;
type
  TfrmSplash = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  frmSplash: TfrmSplash;
implementation
{$R *.DFM}
procedure TfrmSplash.Image1Click(Sender: TObject);
begin
  // if the user clicks on it, we presume they don't want it around anymore
  Close;
end;
procedure TfrmSplash.Timer1Timer(Sender: TObject);
begin
  // the form closes after the timer interval.  But the timer's enabled
  // after the app is started, not before.  This allows the form to be
  // seen while everything is initializing, but if we're on a really fast
  // machine, we still see it for the timer interval before it goes away.
  // After all, I spent some time making the pretty graphic and I want
  // people to see it!
  Close;
end;
procedure TfrmSplash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // We only show this form once, on startup, so we can free it on close
  Action := caFree;
end;
end.

						