IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Delphi - Windows lisans bilgilerinin (isim ve şirket) bulun

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - Delphi - Windows lisans bilgilerinin (isim ve şirket) bulun (https://www.ircforumlari.net/delphi/396874-delphi-windows-lisans-bilgilerinin-isim-ve-sirket-bulun.html)

aSi	12 Haziran 2011 12:43

Delphi - Windows lisans bilgilerinin (isim ve şirket) bulun

uses kısmına Registry unitini ekleyin;

PHP- Kodu:

   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', 

'Hasan E.')); 

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

'DefCompany', 

'Kontrol ve Otomasyon Tekniker.')); 

reg.free; 

end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:24.