创建快捷方式到[启动]
2006-02-04 13:58:15 来源:WEB开发网//根据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
//创建到别的用户里,可以修改一下,不过。。。这样做不好吧。。。
- ››创建SQL2005自动备份,定期删除的维护计划
- ››创建动态表单 javascript
- ››创建基于PPTP的站点到站点VPN连接:ISA2006系列之...
- ››创建基于L2TP的站点到站点的VPN连接:ISA2006系列...
- ››创建一个Twisted Reactor TCP服务器
- ››创建Windows Mobile上兼容性好的UI 程序
- ››创建android的Service
- ››创建远古部落环境与原住民角色
- ››创建并扩展Apache Wicket Web应用
- ››创建不在任务条中显示窗口按钮的应用
- ››创建 Android 文件系统(Root file system)
- ››创建 Android 系统步骤简介
更多精彩
赞助商链接