Datakent Forum : Windows Bilgileri Registry Yontemi ile http://forum.datakent.com/ XML içerik linki; Datakent Forum : Borland Delphi : Windows Bilgileri Registry Yontemi ile Tue, 28 Apr 2026 09:46:33 +0000 Tue, 11 Nov 2008 21:07:42 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 9.54 360 forum.datakent.com/RSS_post_feed.asp?TID=1581 Datakent Forum http://forum.datakent.com/forum_images/datakent.com_forums.png http://forum.datakent.com/ Windows Bilgileri Registry Yontemi ile : delphi yeni sürümlerde şöyle bir... http://forum.datakent.com/forum_posts.asp?TID=1581&PID=3374#3374 Yazar: murat turan
Konu: 1581
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.
]]> Tue, 11 Nov 2008 21:07:42 +0000 http://forum.datakent.com/forum_posts.asp?TID=1581&PID=3374#3374 Windows Bilgileri Registry Yontemi ile : //murat turan //- - - - - - -... http://forum.datakent.com/forum_posts.asp?TID=1581&PID=3372#3372 Yazar: turknetyazilim
Konu: 1581
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;
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

]]> Tue, 11 Nov 2008 16:33:19 +0000 http://forum.datakent.com/forum_posts.asp?TID=1581&PID=3372#3372