Sayfayı Yazdır | Pencereyi Kapat

Windows Bilgileri Registry Yontemi ile

Nereden Yazdırıldığı: Datakent
Kategori: Diğer bölümler
Forum Adı: Borland Delphi
Forum Tanımlaması: Borland Delphi ile ilgili soru / sorun / paylaşım bölümü
URL: http://forum.datakent.com/forum_posts.asp?TID=1581
Tarih: 28.Mart.2024 Saat 20:45


Konu: Windows Bilgileri Registry Yontemi ile
Mesajı Yazan: turknetyazilim
Konu: Windows Bilgileri Registry Yontemi ile
Mesaj Tarihi: 11.Kasim.2008 Saat 16:33

//murat turan

//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
FUNCTION GetWinInfo(Paramxx: Char): String;
VAR
 REG:TRegistry;
BEGIN
   reg := TRegistry.Create;
   try
   reg.RootKey := HKEY_CURRENT_USER;
   reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',FALSE);
         IF Paramxx ='1' THEN  Result := reg.ReadString('Desktop')
    ELSE IF Paramxx ='2' THEN  Result := reg.ReadString('Start Menu')
    ELSE IF Paramxx ='3' THEN  Result := reg.ReadString('Personal')
    ELSE IF Paramxx ='4' THEN  Result := reg.ReadString('Startup')
    ELSE IF Paramxx ='5' THEN  Result := reg.ReadString('Recent')
    ELSE IF Paramxx ='6' THEN  Result := reg.ReadString('Fonts')
    ELSE IF Paramxx ='7' THEN  Result := reg.ReadString('Programs')
    ELSE IF Paramxx ='8' THEN  Result := reg.ReadString('SENDTo')
    ELSE IF Paramxx ='9' THEN  Result := reg.ReadString('Favorites')
    ELSE Result :='';
   finally
    reg.CloseKey;
    reg.free;
    reg := nil;
   END;
END;

//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -




Cevaplar:
Mesajı Yazan: murat turan
Mesaj Tarihi: 11.Kasim.2008 Saat 21:07
delphi yeni sürümlerde şöyle bir kısaltma var.
 
    reg.free;
    reg := nil;
 
yerine FreeAndNill(reg);  komutu kullanılabiliyor.


-------------
http://www.kasatakip.com - Kasa Takip  |  http://www.caritakip.com - Cari Takip  |  http://www.evraktakip.com - Evrak Takip  |  http://www.etasqlmobil.com - ETA SQL Mobil



Sayfayı Yazdır | Pencereyi Kapat