//根据zswang和"超级猛料"部分函数改编 //比放到注册表里麻烦多了 function GetSpecialFolderDir(const folderid:integer): String; var   pidl: pItemIDList;   buffer: array[0..255] of char; begin //取指定的文件夹项目表 //CSIDL_STARTUP:启动   SHGetSpecialFolderLocation(application.Handle , folderid, pidl);   SHGetPa...
[ 查看全文 ]