• Web sitemizin içeriğine ve tüm hizmetlerimize erişim sağlamak için Web sitemize kayıt olmalı ya da giriş yapmalısınız. Web sitemize üye olmak tamamen ücretsizdir.
  • Sohbetokey.com ile canlı okey oynamaya ne dersin? Hem sohbet et, hem mobil okey oyna!
  • Soru mu? Sorun mu? ''Bir Sorum Var?'' sistemimiz aktiftir. Paylaşın beraber çözüm üretelim.

Windows lisans bilgilerinin (isim ve şirket) bulunması

Üyelik Tarihi
7 Ocak 2015
Konular
4,091
Mesajlar
4,274
MFC Puanı
40
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