// Uses에 ShlObj, ShellApi 추가 function GetFolderPath(iFolder : Integer) : String; var iID : PItemIDList; szPath : PChar; begin Result := ``; szPath := StrAlloc(MAX_PATH); if SHGetSpecialFolderLocation(Application.Handle, iFolder, iID) = NOERROR then begina SHGetPathFromIDList(iID, szPath); Result := StrPas(szPath); end; StrDispose(szPath); end;