un_sysini.~pas

来自「信息系统工作核心代码,若要具体可以联系我,这只是一部分核心代码,大家一起交流分享」· ~PAS 代码 · 共 51 行

unit Un_SysIni;

interface

uses
  classes, Registry, Publics, windows;

type
  TSystemRegister=class
  private
    FRegistry: TRegistry;
  public
    constructor Create;
    destructor Destroy; override;
    procedure RegisteLastLoginUser(LoginUser: string);
    function GetLastLoginUser: string;
  end;

implementation

{ TSystemRegister }

constructor TSystemRegister.Create;
begin
  FRegistry:= TRegistry.Create;
  FRegistry.RootKey := HKEY_CURRENT_USER;
end;

destructor TSystemRegister.Destroy;
begin
  FRegistry.Free;
  inherited;
end;

function TSystemRegister.GetLastLoginUser: string;
begin
  with FRegistry do
    if OpenKey(MySoftKey, False) then 
      Result:= ReadString('LastLoginUser');
end;

procedure TSystemRegister.RegisteLastLoginUser(LoginUser: string);
begin
  with FRegistry do begin
    OpenKey(MySoftKey, True);
    WriteString('LastLoginUser',  LoginUser);
  end;  
end;

end.