delphi 操作注册表

标签：registry delphi

uses Registry;

procedure TfrmLogin.FormShow(Sender: TObject);
var
  reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  Reg.OpenKey(‘\SOFTWARE\Employees\‘, true);
  if not reg.ValueExists(‘User‘) then
    Reg.WriteString(‘User‘, ‘UserID‘)
  else
    edtuser.Text := Reg.ReadString(‘User‘);
  Reg.Free;
end;

本文出自 “一切有为法，如梦幻泡影” 博客，请务必保留此出处http://kaixinbuliao.blog.51cto.com/2567365/1611972

delphi 操作注册表

标签：registry delphi

原文地址：http://kaixinbuliao.blog.51cto.com/2567365/1611972