创建快捷方式到[启动]
//根据zswang和"超级猛料"部分函数改编
//比放到注册表里麻烦多了
function GetSpecialFolderDir(const folderid:integer): String;
var
pidl: pItemIDList;
buffer: array[0..255] of char;
begin
//取指定的文件夹项目表
//CSIDL_STARTUP:启动
SHGetSpecialFolderLocation(application.Handle , folderid, pidl);
SHGetPathFromIDList(pidl, buffer); //转换成文件系统的路径
Result:=strpas(buffer);
end;
function CreateShellLink(mPath: string; mWorkingDirectory: ...[ 查看全文 ]
