如何取得某些特殊文件夹路径

在Windows 下有很多的特殊含义的文件夹，如桌面，网上邻居，字体，我的文档，
程序组，最近文档，发送到，开始菜单，启动等，有时可能需要取得这些文件夹
的真正路径。
一种方法是通过读注册表文件，存放在HKEY_CURRENT_USER根下，目录为：
SoftwareMicroSoftWindowsCurrentVersionExplorer
可看到在shell folder段中存放着上述文件夹所对应的实际物理目录，至于如何
读注册表的操作不再给出，请自行解决。
另一种方法是调用shell函数可以得到相应的目录，但是不是所有在shell folder
目录下的文件夹都可以获得，请注意。

function GetSpecialFolderDir(const folderid:integer):string;
var
pidl:pItemIDList;
buffer:array [ 0..255 ] of char ;
begin