专注于互联网--专注于架构

2008年9月24日创建快捷方式到桌面:创建快捷方式到[启动]

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