main.pas

来自「精彩编程百例26～50 其中有 控制任务栏 windows底层任务控制 屏保预览」· PAS 代码 · 共 49 行

unit Main;

interface

uses
  windows, SysUtils, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type
  TMainForm = class(TForm)
    ExitButton: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure ExitButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.DFM}

procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
  Close;
end;

   //以下处理过程将延迟几秒钟，以使得喷溅对话框能够显示一段时间
procedure TMainForm.FormCreate(Sender: TObject);
var
  CurrentTime: LongInt;
begin
  CurrentTime := GetTickCount div 1000;
  while ( (GetTickCount div 1000) < (CurrentTime + 4) ) do
    Sleep(1);
end;

end.