获取系统文件夹路径

系统文件夹依用户的不同或者系统安装的不同而不同，那么在需要用到这些文件夹时就只有用程序获取了。

以下代码可以读入当前的系统文件夹：
首先要uses ShlObj, ActiveX;

function GetSystemPath(Folder: Integer): string;
var
    PIDL: PItemIDList;
    Path: LPSTR;
    AMalloc: IMalloc;
begin
    Path := StrAlloc(MAX_PATH);
    SHGetSpecialFolderLocation(Application.Handle, Folder, PIDL);
    if SHGetPathFromIDList(PIDL, Path) then
        Result := Path;
    SHGetMalloc(AMalloc);
    AMalloc.Free(PIDL);
    StrDispose(Path);
end;

该函数可以使用的参数如下：
也可以到MSDN去查
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
符号常量 系统文件夹

CSIDL_DESKTOPDIRECTORY Desktop文件夹

CSIDL_FONTS Fonts文件夹

CSIDL_NETHOOD NetHood文件夹

CSIDL_PERSONAL My Documents（我的文档）文件夹

CSIDL_PROGRAMS “开始”菜单（Start Menu）中的Programs（程序）文件夹

CSIDL_RECENT “开始”菜单（Start Menu）中的Recent（文档）文件夹

CSIDL_SENDTO Sendto（发送到）文件夹

CSIDL_STARTMENU Start Menu（“开始”菜单）文件夹

CSIDL_STARTUP 启动（Startup）文件夹

CSIDL_TEMPLATES ShellNew文件夹

CSIDL_COOKIES Cookies文件夹

CSIDL_INTERNET_CACHE Temporary Internet Files文件夹

CSIDL_PRINTHOOD PrintHood文件夹

CSIDL_APPDATA Application Data文件夹

CSIDL_FAVORITES Favorites文件夹

CSIDL_HISTORY History文件夹