//根据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//创建到别的用户里,可以修改一下,不过。。。这样做不好吧。。。
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18