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;