Mega Code Archive

 

Categories / Delphi / System

 

Windows lisans bilgilerinin [isim ve şirket] bulunması

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;