Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi写注册表范例代码 →→→→→进入此内容的聊天室

来自 , 2020-02-07, 写在 Delphi (Object Pascal), 查看 186 次.
URL http://www.code666.cn/view/9fc64354
  1. procedure TForm1.Button2Click(Sender: TObject);
  2. var
  3.   i:tregistry;
  4. begin
  5.   try
  6.     i:=tregistry.Create;
  7.     i.RootKey:=HKEY_CURRENT_CONFIG;
  8.     if i.OpenKey('xiaoqiao',true) then
  9.     begin
  10.       i.WriteString('qiao','My Delphi project');       //写入一个字符串型的数据
  11.       showmessage('Yes');
  12.       i.CloseKey;
  13.       i.Free;
  14.     end;
  15.   except
  16.     showmessage('No');
  17.   end;
  18. end;
  19. //delphi/5071

回复 "Delphi写注册表范例代码"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666