unitflash.pas

来自「通用人事管理系统:包括人事信息档案考勤管理培训管理」· PAS 代码 · 共 52 行

unit UnitFlash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Registry;

type
  TFrmFlash = class(TForm)
    ImgFlash: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmFlash: TFrmFlash;

implementation

uses UnitCommon;

{$R *.dfm}

procedure TFrmFlash.FormCreate(Sender: TObject);
var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\HuiFeng\HFEIS\1.00',false) then begin
      Label1.Caption:=hf_decrypt(Reg.ReadString('RegisteredOwner'));
      Label2.Caption:=hf_decrypt(Reg.ReadString('RegisteredOrganization'));
      Label3.Caption:=hf_decrypt(Reg.ReadString('RegisteredKey'));
      BenRegistered:=ChkReg(Label3.Caption);
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;

end.