delphi获取系统特定文件夹路径

获取收藏夹：

use shellapi,shlobj

procedure TForm1.FormCreate(Sender: TObject);
var
pidl: PItemIDList;
FavPath: array[0..MAX_PATH] of char;
begin
SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl);
SHGetPathFromIDList(pidl, favpath);
form1.Caption:=favpath;
end;

user ShlObj
SHGetSpecialFolderLocation
此函数的功能是取得系统特定目录的路径；函数如下：
WINSHELLAPI HRESULT WINAPI SHGetSpecialFolderLocation(;
HWND hwndOwner,
int nFolder,
LPITEMIDLIST *ppidl
);
参数解释：
hwndOwner：HWND信息；
nFolder：需要取得的路径的代码，程序中为CSIDL_FAVORITES收藏夹路径；
*ppidl：路径保存指针；

其他例子：

function GetSpecialFolderDir(const folderid:integer):string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin
//取指定的文件夹项目表
SHGetSpecialFolderLocation( application.Handle , folderid, pidl);
SHGetPathFromIDList(pidl, buffer); //转换成文件系统的路径
result:=strpas(buffer);
end;

 

其中：folderid可以取下面的值：但是请注意，有些是虚的文件夹，不是文件系统
的一部分，所以用SHGetPathFromIDList是取不出路径的，但是在此也列出了。打’*’
号的为不是真正的文件系统，应该用作它用。

CSIDL_BITBUCKET * 回收站
CSIDL_CONTROLS * 控制面板
CSIDL_DESKTOP * 桌面
CSIDL_DESKTOPDIRECTORY 桌面目录 //如C:/WINDOWS/Desktop
CSIDL_DRIVES * 我的电脑
CSIDL_FONTS 字体 //如C:/WINDOWS/FONTS
CSIDL_NETHOOD 网上邻居目录 //如C:/WINDOWS/NetHood
CSIDL_NETWORK * 网上邻居
CSIDL_PERSONAL 我的文档 //如C:/My Documents
CSIDL_PRINTERS * 打印机
CSIDL_PROGRAMS 程序组 //如C:/WINDOWS/Start Menu/Programs
CSIDL_RECENT 最近文档 //如C:/WINDOWS/Recent
CSIDL_SENDTO 发送到 //如C:/WINDOWS/SentTo
CSIDL_STARTMENU 开始菜单 //如C:/WINDOWS/Start Menu
CSIDL_STARTUP 启动 //如C:/WINDOWS/启动
CSIDL_TEMPLATES 模版 //如C:/WINDOWS/ShellNew

// 其他支持的路径

{$EXTERNALSYM REGSTR_PATH_SPECIAL_FOLDERS}
REGSTR_PATH_SPECIAL_FOLDERS   = REGSTR_PATH_EXPLORER + '/Shell Folders';
{$EXTERNALSYM CSIDL_DESKTOP}
CSIDL_DESKTOP                       = $0000;
{$EXTERNALSYM CSIDL_INTERNET}
CSIDL_INTERNET                      = $0001;
{$EXTERNALSYM CSIDL_PROGRAMS}
CSIDL_PROGRAMS                      = $0002;
{$EXTERNALSYM CSIDL_CONTROLS}
CSIDL_CONTROLS                      = $0003;
{$EXTERNALSYM CSIDL_PRINTERS}
CSIDL_PRINTERS                      = $0004;
{$EXTERNALSYM CSIDL_PERSONAL}
CSIDL_PERSONAL                      = $0005;
{$EXTERNALSYM CSIDL_FAVORITES}
CSIDL_FAVORITES                     = $0006;
{$EXTERNALSYM CSIDL_STARTUP}
CSIDL_STARTUP                       = $0007;
{$EXTERNALSYM CSIDL_RECENT}
CSIDL_RECENT                        = $0008;
{$EXTERNALSYM CSIDL_SENDTO}
CSIDL_SENDTO                        = $0009;
{$EXTERNALSYM CSIDL_BITBUCKET}
CSIDL_BITBUCKET                     = $000a;
{$EXTERNALSYM CSIDL_STARTMENU}
CSIDL_STARTMENU                     = $000b;
{$EXTERNALSYM CSIDL_DESKTOPDIRECTORY}
CSIDL_DESKTOPDIRECTORY              = $0010;
{$EXTERNALSYM CSIDL_DRIVES}
CSIDL_DRIVES                        = $0011;
{$EXTERNALSYM CSIDL_NETWORK}
CSIDL_NETWORK                       = $0012;
{$EXTERNALSYM CSIDL_NETHOOD}
CSIDL_NETHOOD                       = $0013;
{$EXTERNALSYM CSIDL_FONTS}
CSIDL_FONTS                         = $0014;
{$EXTERNALSYM CSIDL_TEMPLATES}
CSIDL_TEMPLATES                     = $0015;
{$EXTERNALSYM CSIDL_COMMON_STARTMENU}
CSIDL_COMMON_STARTMENU              = $0016;
{$EXTERNALSYM CSIDL_COMMON_PROGRAMS}
CSIDL_COMMON_PROGRAMS               = $0017;
{$EXTERNALSYM CSIDL_COMMON_STARTUP}
CSIDL_COMMON_STARTUP                = $0018;
{$EXTERNALSYM CSIDL_COMMON_DESKTOPDIRECTORY}
CSIDL_COMMON_DESKTOPDIRECTORY       = $0019;
{$EXTERNALSYM CSIDL_APPDATA}
CSIDL_APPDATA                       = $001a;
{$EXTERNALSYM CSIDL_PRINTHOOD}
CSIDL_PRINTHOOD                     = $001b;
{$EXTERNALSYM CSIDL_ALTSTARTUP}
CSIDL_ALTSTARTUP                = $001d;         // DBCS
{$EXTERNALSYM CSIDL_COMMON_ALTSTARTUP}
CSIDL_COMMON_ALTSTARTUP         = $001e;         // DBCS
{$EXTERNALSYM CSIDL_COMMON_FAVORITES}
CSIDL_COMMON_FAVORITES          = $001f;
{$EXTERNALSYM CSIDL_INTERNET_CACHE}
CSIDL_INTERNET_CACHE            = $0020;
{$EXTERNALSYM CSIDL_COOKIES}
CSIDL_COOKIES                   = $0021;
{$EXTERNALSYM CSIDL_HISTORY}
CSIDL_HISTORY                   = $0022;

 

转自：http://hi.baidu.com/datapan/blog/item/692a0424d849a7398744f91a.html