Nemusím snad připomínat

(a určitě jste toto varování slyšeli mnohokrát), že musíte dávat pozor, co děláte a neměnit položky, o kterých nevíte co znamenají, protože byste mohli napáchat celkem dost škod včetně totálního zlikvidování systému. :)
Pomocí výše zmíněného programu však můžete registry pohodlně a bezpečně procházet a hledat zajímavé větve, které pak můžete použít pro náš příklad. Ten je udělán tak, že informace pouze čte a nic nezapisuje, takže žádné nebezpečí nehrozí. Nyní již však k naší ukázce:
procedure TForm1.Button1Click(Sender: TObject);
var key:string;
Reg: TRegIniFile;
uzivatel,spolecnost,system,verze:string;
begin
key:='\Software\Microsoft\Windows\CurrentVersion';
Reg:=TRegIniFile.Create;
try
Reg.RootKey:=HKey_Local_Machine;
if Reg.OpenKey(key,False) then
begin
uzivatel:='Uživatel: '+Reg.ReadString(key,'RegisteredOwner', '');
spolecnost:='Společnost: '+Reg.ReadString(key,'RegisteredOrganization', '');
system:='Systém: '+Reg.ReadString(key,'ProductName', '');
verze:='Verze: '+Reg.ReadString(key,'VersionNumber', '');
ShowMessage(uzivatel+#13+spolecnost+#13+system+#13+verze);
end;
finally
Reg.Free;
end;
end;