12 Haziran 2011, 12:43
|
#1 |
| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Delphi - Windows lisans bilgilerinin (isim ve şirket) bulun
uses kısmına Registry unitini ekleyin; PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
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;
__________________
Doğruları biliyorsan, yalanları dinlemek eğlencelidir. |
|
|  |
Benzer Konular 
Normal
