Datakent Ana Sayfa
Anasayfa Anasayfa > Diğer bölümler > Borland Delphi
  Aktif Konular Aktif Konular RSS: Windows Bilgileri Registry Yontemi ile
  Yardım Yardım  Hızlı Ara   Kayıt Ol Kayıt Ol  Giriş Giriş

Windows Bilgileri Registry Yontemi ile

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
turknetyazilim Açılır Menü Göster
Moderator Group
Moderator Group
Simge

Kayıt Tarihi: 18.Ocak.2008
Bulundugu Yer: Balıkesir
Online: Sitede Değil
Gönderilenler: 214
  Alıntı turknetyazilim Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Windows Bilgileri Registry Yontemi ile
    Gönderim Zamanı: 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;

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

Yukarı Dön
murat turan Açılır Menü Göster
Admin Group
Admin Group
Simge
Datakent

Kayıt Tarihi: 01.Ekim.2003
Bulundugu Yer: Turkey
Online: Sitede Değil
Gönderilenler: 1798
  Alıntı murat turan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Menü Göster



Bu Sayfa 0,277 Saniyede Yüklendi. [power by : WebWiz]