Registry

最新推荐文章于 2025-02-13 18:12:24 发布

seagull327

最新推荐文章于 2025-02-13 18:12:24 发布

阅读量638

点赞数

分类专栏：控件文章标签： c

本文链接：https://blog.youkuaiyun.com/haiou327/article/details/6886510

版权

控件专栏收录该内容

20 篇文章

订阅专栏

uses
  Registry;

procedure TForm1.FormCreate(Sender: TObject);

var
  Reg: TRegistry;
begin
  reg := Tregistry.Create;
  Reg.rootkey := HKEY_USERS;
  try
    if Reg.openkey('\S-1-5-21-1614895754-1935655697-1417001333-500\Software\EasyBoot Systems\UltraISO\5.0', False) then
    begin
      reg.WriteString('UserName', 'haiou327');
      reg.WriteString('Registration', 'ccafe7b5b6a6edf3cbd093b0c6da9981');
      reg.WriteString('Language', '2052');
    end;
    reg.CloseKey;
  finally
    reg.free;
  end;
  WinExec('UI.exe', SW_SHOW);
  Application.Terminate;
end;