//根据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...
[ 查看全文 ]