Registry

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;