Windows Bilgileri Registry Yontemi ile

//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;
//- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -