splash1.pas

职工信息管理系统的源代码

unit splash1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls,registry, ComCtrls, Gauges,
  TFlatProgressBarUnit;

type
  Tsplash = class(TForm)
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label1: TLabel;
    bar1: TFlatProgressBar;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  splash: Tsplash;

implementation

{$R *.dfm}

procedure Tsplash.FormCreate(Sender: TObject);
var rg:Tregistry;
begin
 rg:=Tregistry.Create;
 rg.RootKey:=HKEY_USERS;
 if rg.OpenKey('.default\software\wo\date',false)=true then
 begin
 label2.Visible:=true;
 label3.Visible:=true;
 label4.Caption:=rg.ReadString('username');
 label5.Caption:=rg.ReadString('complay');
 rg.Free;
end;
end;

end.