获取 Windows 特殊文件夹函数

在网上找不到比较全的，干脆自己做，现贡献出来。

unit Utils;

interface

uses
  Windows, SysUtils, ShlObj;

type
  TSpecialFolder = (
    sfDesktop,                // <desktop>
    sfInternet,               // Internet Explorer (icon on desktop)
    sfPrograms,               // Start Menu/Programs
    sfControls,               // My Computer/Control Panel
    sfPrinters,               // My Computer/Printers
    sfPersonal,               // My Documents
    sfFavorites,              // <user name>/Favorites
    sfStartup,                // Start Menu/Programs/Startup
    sfRecent,                 // <user name>/Recent
    sfSendTo,                 // <user name>/SendTo
    sfBitBucket,              // <desktop>/Recycle Bin
    sfStartMenu,              // <user name>/Start Menu
    sfMyDocuments,            // logical "My Documents" desktop icon
    sfMyMusic,                // "My Music" folder
    sfMyVideo,                // "My Videos" folder
    sfDesktopDirectory,       // <user name>/Desktop
    sfDrives,                 // My Computer
    sfNetwork,                // Network Neighborhood (My Network Places)
    sfNethood,                // <user name>/nethood
    sfFonts,                  // windows/fonts
    sfTemplates,              // <user name>/Templates
    sfCommonStartMenu,        // All Users/Start Menu
    sfCommonPrograms,         // All Users/Start Menu/Programs
    sfCommonStartup,          // All Users/Startup
    sfCommonDesktopDirectory, // All Users/Desktop
    sfAppData,                // <user name>/Application Data
    sfPrinthood,              // <user name>/PrintHood
    sfLocalAppData,           // <user name>/Local Settings/Applicaiton Data (non roaming)
    sfALTStartup,             // non localized startup
    sfCommonALTStartup,       // non localized common startup
    sfCommonFavorites,        // All Users/Favorites
    sfInternetCache,          // <user name>/Local Settings/Temporary Internet Files
    sfCookies,                // <user name>/Cookies
    sfHistory,                // <user name>/Local Settings/History
    sfCommonAppData,          // All Users/Application Data
    sfWindows,                // GetWindowsDirectory()
    sfSystem,                 // GetSystemDirectory()
    sfProgramFiles,           // C:/Program Files
    sfMyPictures,             // C:/Program Files/My Pictures
    sfProfile,                // USERPROFILE
    sfSystemX86,              // x86 system directory on RISC
    sfProgramFilesX86,        // x86 C:/Program Files on RISC
    sfProgramFilesCommon,     // C:/Program Files/Common
    sfProgramFilesCommonX86,  // x86 Program Files/Common on RISC
    sfCommonTemplates,        // All Users/Templates
    sfCommonDocuments,        // All Users/Documents
    sfCommonAdminTools,       // All Users/Start Menu/Programs/Administrative Tools
    sfAdminTools,             // <user name>/Start Menu/Programs/Administrative Tools
    sfConnections,            // Network and Dial-up Connections
    sfCommonMusic,            // All Users/My Music
    sfCommonPictures,         // All Users/My Pictures
    sfCommonVideo,            // All Users/My Video
    sfResources,              // Resource Direcotry
    sfResourcesLocalized,     // Localized Resource Direcotry
    sfCommonOEMLinks,         // Links to All Users OEM specific apps
    sfCDBurnArea,             // USERPROFILE/Local Settings/Application Data/Microsoft/CD Burning
    sfComputersNearMe         // Computers Near Me (computered from Workgroup membership)
  );

function GetSpecialFolder(SpecialFolder: TSpecialFolder): string;

implementation

function GetSpecialFolder(SpecialFolder: TSpecialFolder): string;

const
  SpecialFolderValues: array[TSpecialFolder] of Integer = ($0000, $0001, $0002,
    $0003, $0004, $0005, $0006, $0007, $0008, $0009, $000a, $000b, $000c, $000d,
    $000e, $0010, $0011, $0012, $0013, $0014, $0015, $0016, $0017, $0018, $0019,
    $001a, $001b, $001c, $001d, $001e, $001f, $0020, $0021, $0022, $0023, $0024,
    $0025, $0026, $0027, $0028, $0029, $002a, $002b, $002c, $002d, $002e, $002f,
    $0030, $0031, $0035, $0036, $0037, $0038, $0039, $003a, $003b, $003d);

var
  ItemIDList: PItemIDList;
  Buffer: array [0..MAX_PATH] of Char;
begin
  SHGetSpecialFolderLocation(0, SpecialFolderValues[SpecialFolder], ItemIDList);
  SHGetPathFromIDList(ItemIDList, Buffer);
  Result := StrPas(Buffer);
end;

end.