获取系统文件夹路径

系统文件夹在不同的计算机上是不同的（由于不同的操作系统，用户档案，用户设定）。

以下代码可以读入当前设定:

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;

你可以使用不同的参数调用这个函数，例如：

符号常量 系统文件夹

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文件夹