Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Windows lisans bilgilerinin (isim ve şirket) bulunması

ByOnur58

Kayıtlı Üye
MFC Üyesi
  • Üyelik Tarihi
    7 Ocak 2015
  • Mesajlar
    2,113
  • MFC Puanı
    10
  • MFC Seviyesi

Kod:
uses kısmına Registry unitini ekleyin;
procedure TForm1.Button1Click(Sender:TObject);
var
  reg: TRegIniFile;
begin
  reg := TRegIniFile.create('SOFTWAREMICROSOFTMS SETUP (ACME)');
  Memo1.Lines.Add(reg.ReadString('USER INFO',
                                 'DefName',
                                 'TurkHackTeam'));
  Memo1.Lines.Add(reg.ReadString('USER INFO',
                                 'Company',
                                 'Bilgisayar Bilimleri Müh.'));
  reg.free;
end;
 
Üst Alt