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!

ANLAMADIM KI ABİ BEN DAHA YENIYIM HEMDE COK YENI BIRAZ ACSAN ? ? ?
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
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
arkadaşlar sonuna end. koyun çalışıyor
arkadaşlar sonuna end. koyun çalışıyor

Yukarı Git