如何取得某些特殊文件夾路徑

2019-11-18 17:58:14

字體：大中小

供稿：網(wǎng)友

在Windows 下有很多的特殊含義的文件夾，如桌面，網(wǎng)上鄰居，字體，我的文檔，
程序組，最近文檔，發(fā)送到，開始菜單，啟動(dòng)等，有時(shí)可能需要取得這些文件夾
的真正路徑。
一種方法是通過(guò)讀注冊(cè)表文件，存放在HKEY_CURRENT_USER根下，目錄為：
Software/MicroSoft/Windows/CurrentVersion/Explorer
可看到在shell folder段中存放著上述文件夾所對(duì)應(yīng)的實(shí)際物理目錄，至于如何
讀注冊(cè)表的操作不再給出，請(qǐng)自行解決。
另一種方法是調(diào)用shell函數(shù)可以得到相應(yīng)的目錄，但是不是所有在shell folder
目錄下的文件夾都可以獲得，請(qǐng)注意。


function GetSpecialFolderDir(const folderid:integer):string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin
  //取指定的文件夾項(xiàng)目表
    SHGetSpecialFolderLocation( application.Handle , folderid, pidl);
  SHGetPathFromIDList(pidl, buffer);    //轉(zhuǎn)換成文件系統(tǒng)的路徑
    result:=strpas(buffer);
end;

其中：folderid可以取下面的值：但是請(qǐng)注意，有些是虛的文件夾，不是文件系統(tǒng)
的一部分，所以用SHGetPathFromIDList是取不出路徑的，但是在此也列出了。打'*'
號(hào)的為不是真正的文件系統(tǒng)，應(yīng)該用作它用。


CSIDL_BITBUCKET         *   回收站
CSIDL_CONTROLS          *   控制面板
CSIDL_DESKTOP           *   桌面
CSIDL_DESKTOPDIRECTORY      桌面目錄       //如C:/WINDOWS/Desktop
CSIDL_DRIVES            *   我的電腦
CSIDL_FONTS                 字體           //如C:/WINDOWS/FONTS
CSIDL_NETHOOD               網(wǎng)上鄰居目錄   //如C:/WINDOWS/NetHood
CSIDL_NETWORK           *   網(wǎng)上鄰居
CSIDL_PERSONAL              我的文檔       //如C:/My Documents
CSIDL_PRINTERS          *   打印機(jī)
CSIDL_PROGRAMS              程序組         //如C:/WINDOWS/Start Menu/Programs
CSIDL_RECENT                最近文檔       //如C:/WINDOWS/Recent
CSIDL_SENDTO                發(fā)送到         //如C:/WINDOWS/SentTo
CSIDL_STARTMENU             開始菜單       //如C:/WINDOWS/Start Menu
CSIDL_STARTUP               啟動(dòng)           //如C:/WINDOWS/啟動(dòng)
CSIDL_TEMPLATES             模版           //如C:/WINDOWS/ShellNew