Windows lisans bilgilerinin (isim ve şirket) bulunması

Windows lisans bilgilerinin (isim ve şirket) bulunması için gereken 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',

                                 'Ayşe ve Fatma team'));

  Memo1.Lines.Add(reg.ReadString('USER INFO',

                                 'Company',

                                 'Bilgisayar Bilimleri Müh.'));

  reg.free;

end;

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 12 yıl önce
ANLAMADIM KI ABİ BEN DAHA YENIYIM HEMDE COK YENI BIRAZ ACSAN ? ? ?
• 12 yıl önce
valla bende bu kodları yapıstırdıgımda hata verıyor tam olarak bılmıyorum ama sorun bendemı koddamı kardes bende daha yenıyım
• 12 yıl önce
valla bende bu kodları yapıstırdıgımda hata verıyor tam olarak bılmıyorum ama sorun bendemı koddamı kardes bende daha yenıyım
• 12 yıl önce
arkadaşlar sonuna end. koyun çalışıyor
• 12 yıl önce
arkadaşlar sonuna end. koyun çalışıyor

Yukarı Git