创建快捷方式到[启动]

　2006-02-04 13:58:15　来源：WEB开发网　闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹

闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�

婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹　　闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姈椤愮厧鈽夊Ο閿嬬€婚梺褰掑亰閸撴稑鈻斿鑸碘拺闁告稑饪村▓鏃€绻涚仦鍌氬闁崇粯鎹囬獮瀣攽閹邦剚顔傛俊鐐€栧濠氬储瑜忛幉鎾晸閿燂拷

核心提示： //根据zswang和"超级猛料"部分函数改编//比放到注册表里麻烦多了function GetSpecialFolderDir(const folderid:integer): String;var pidl: pItemIDList; buffer: array[0..255] of ch

//根据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: string;
mFileName: WideString): Boolean; { 返回创建快捷方式是否成功 }
var
vShellLink: IShellLink;
vPersistFile: ipersistFile;
vUnKnown: IUnKnown;
begin
Result := True;
try
　 vUnKnown := CreateComObject(CLSID_ShellLink);
　 vShellLink := vUnKnown as IShellLink;
　 vPersistFile := vUnKnown as IPersistFile;
　 vShellLink.SetPath(PChar(mPath));
　 vShellLink.SetWorkingDirectory(PChar(mWorkingDirectory));
　 if ExtractFileExt(mFileName) <> '.lnk' then
　　 mFileName := mFileName + '.lnk';
　 vPersistFile.Save(PWChar(mFileName), False);
except
　 Result := False;
end;
end;

function CreateLinkToStartUp(AppName, WorkingDirectory,
LinkFileName: String; CurrentUser: Boolean = True): Boolean;
begin
if CurrentUser then //CurrentUser
　 Result := CreateShellLink(AppName, WorkingDirectory,
　　 GetSpecialFolderDir(CSIDL_STARTUP) + '\' + LinkFileName)
else//All User
　 Result := CreateShellLink(AppName, WorkingDirectory,
　　 GetSpecialFolderDir(CSIDL_COMMON_STARTUP) + '\' + LinkFileName);
end;
//创建到当前用户的[启动]里,CreateLinkToStartUp中最后一个参数设置为True
//创建到所有用户的启动里,CreateLinkToStartUp中最后一个参数设置为False
//创建到别的用户里,可以修改一下，不过。。。这样做不好吧。。。