Uses kısmına Registry unitini ekleyin;
Procedure TForm1.Button1Click(Sender:TObject);

var
reg: TRegIniFile;
begin
reg := TRegIniFile.create('SOFTWARE\MICROSOFT\MS SETUP (ACME)\');
Memo1.Lines.Add(reg.ReadString('USER INFO','DefName','Mustafa ŞİMŞEK'));
Memo1.Lines.Add(reg.ReadString('USER INFO','DefCompany','Bilgisayar Bilimleri Müh.'));
reg.free;
end;

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat