delphi 操作注册表

2016-08-22 10:24:20来源:http://kaixinbuliao.blog.51cto.com/2567365/1611972作者:鹅倌人点击


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;


最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台