社区
非技术区
帖子详情
如何在桌面添加快捷方式
OLDBLACKP
2004-05-03 09:49:04
如何在桌面添加快捷方式
...全文
137
3
打赏
收藏
如何在桌面添加快捷方式
如何在桌面添加快捷方式
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
miky
2004-05-03
打赏
举报
回复
创建快捷方式;获取系统文件或系统目录
(*//
标题:创建快捷方式;获取系统文件或系统目录
说明:参考Kingron资料中“如何取得某些特殊文件夹路径”
设计:Zswang
日期:2002-01-25
支持:wjhu111@21cn.com
//*)
///////Begin Source
uses
ShlObj, ActiveX, ComObj;
function GetSpecialFolderDir(mFolder: Integer): string;
{ 返回获取系统文件或系统目录 }
(*
CSIDL_BITBUCKET * 回收站
CSIDL_CONTROLS * 控制面板
CSIDL_DESKTOP * 桌面
CSIDL_DESKTOPDIRECTORY 桌面目录 //如C:
CSIDL_DRIVES * 我的电脑
CSIDL_FONTS 字体 //如C:
CSIDL_NETHOOD 网上邻居目录 //如C:
CSIDL_NETWORK * 网上邻居
CSIDL_PERSONAL 我的文档 //如C:Documents
CSIDL_PRINTERS * 打印机
CSIDL_PROGRAMS 程序组 //如C:Menu
CSIDL_RECENT 最近文档 //如C:
CSIDL_SENDTO 发送到 //如C:
CSIDL_STARTMENU 开始菜单 //如C:Menu
CSIDL_STARTUP 启动 //如C:\u21551启动
CSIDL_TEMPLATES 模版 //如C:
*)
var
vItemIDList: PItemIDList;
vBuffer: array[0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(0, mFolder, vItemIDList);
SHGetPathFromIDList(vItemIDList, vBuffer); //转换成文件系统的路径
Result := vBuffer;
end; { GetSpecialFolderDir }
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));
vPersistFile.Save(PWChar(mFileName), False);
except
Result := False;
end;
end; { CreateShellLink }
///////End Source
///////Begin Demo
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateShellLink(ParamStr(0), ExtractFilePath(ParamStr(0)),
GetSpecialFolderDir(CSIDL_DESKTOPDIRECTORY) + ' +
ChangeFileExt(ExtractFileName(ParamStr(0)), '.lnk'));
end;
///////End Demo
ekin
2004-05-03
打赏
举报
回复
打包的时候可以选择!
cym830313
2004-05-03
打赏
举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
tmpObject : IUnknown;
tmpSLink : IShellLink;
tmpPFile : IPersistFile;
PIDL : PItemIDList;
StartupDirectory : array[0..MAX_PATH] of Char;
StartupFilename : String;
LinkFilename : WideString;
begin
StartupFilename := ’c:\windows\notepad.exe’;
tmpObject := CreateComObject(CLSID_ShellLink);
tmpSLink := tmpObject as IShellLink;
tmpPFile := tmpObject as IPersistFile;
tmpSLink.SetPath(pChar(StartupFilename));
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);
SHGetPathFromIDList(PIDL,StartupDirectory);
LinkFilename := StartupDirectory + ’\MyNotepad.lnk’;
tmpPFile.Save(pWChar(LinkFilename),FALSE);
end;
c#通过纯代码创建
桌面
快捷方式
、创建程序菜单项、将网页
添加
到收藏夹
c#通过纯代码创建
桌面
快捷方式
、创建程序菜单项、将网页
添加
到收藏夹
Android
桌面
悬浮窗效果实现,仿360手机卫士悬浮窗效果 源码程序
此为实例源码,详细讲解请参考博文http://blog.csdn.net/sinyu890807/article/details/8689140
计算机创建
快捷方式
w10,win10中解决无法在
桌面
添加
快捷方式
的修复方法
我们在win10系统电脑的使用中,电脑有时候有很多的操作出现问题我们不知道怎么做的时候,可以看一下小编的分享,我们在win10中小伙伴提问,自己想要在
桌面
添加
润撒建的
快捷方式
,可是系统显示不能
添加
了,这是怎么回事呢,今天小编就来个的那家分享一下,我们在win10中解决无法在
桌面
添加
快捷方式
的修复方法。具体的方法和详细的步骤如下:1、首先,按键盘上的WIN按键,或者点击
桌面
左下角的Windows图标...
如何获取在
桌面
创建
快捷方式
的权限
要在
桌面
上创建
快捷方式
,您需要有系统管理员的权限。如果您是系统管理员,则可以直接在
桌面
上创建
快捷方式
。如果您不是系统管理员,则需要向系统管理员索取权限。 您也可以尝试使用第三方应用程序来创建
桌面
快捷方式
,这些应用程序可能会允许您在不具有系统管理员权限的情况下创建
快捷方式
。但是,这可能会受到系统安全设置的限制,因此无法保证在所有情况下都可以使用。 ...
Visual Studio 2015 -
桌面
添加
快捷方式
Visual Studio 2015 -
桌面
添加
快捷方式
非技术区
830
社区成员
53,574
社区内容
发帖
与我相关
我的任务
非技术区
Delphi 非技术区
复制链接
扫一扫
分享
社区描述
Delphi 非技术区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章