社区
非技术区
帖子详情
如何在桌面添加快捷方式
OLDBLACKP
2004-05-03 09:49:04
如何在桌面添加快捷方式
...全文
72
3
打赏
收藏
微信扫一扫
点击复制链接
分享
举报
写回复
3 条
回复
切换为时间正序
当前发帖距今超过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;
打赏
举报
回复
赞
相关推荐
JS
添加
网页
桌面
快捷方式
的代码详细整理
如何
添加
桌面
快捷?很多网友都有这个疑问;JS 点击
添加
网页
桌面
快捷方式
的代码,需要的朋友可以参考下
计算机创建
快捷方式
w10,win10中解决无法
在
桌面
添加
快捷方式
的修复方法
可以看一下小编的分享,我们
在
win10中小伙伴提问,自己想要
在
桌面
添加
润撒建的
快捷方式
,可是系统显示不能
添加
了,这是怎么回事呢,今天小编就来个的那家分享一下,我们
在
win10中解决无法
在
桌面
添加
快捷方式
的修复...
Android如何创建
桌面
快捷方式
主要为大家详细介绍了Android创建
桌面
快捷方式
的方法,感兴趣的小伙伴们可以参考一下
Inno Setup
在
桌面
添加
快捷方式
在
[Tasks]的地方全部替换成下面的代码[Tasks] Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: checkablealone Name: "quicklaunchicon"; ...
android向
桌面
添加
快捷方式
android向
桌面
添加
快捷方式
的源代码,将解可以看我的博客哈。
Android编程实现向
桌面
添加
快捷方式
的方法
主要介绍了Android编程实现向
桌面
添加
快捷方式
的方法,结合实例形式详细分析了Android
添加
桌面
快捷方式
的操作技巧,需要的朋友可以参考下
安卓
添加
桌面
快捷方式
类似QQ
添加
桌面
快捷方式
联系人,也可以自定义
桌面
图标,新手值得看看
怎么
添加
桌面
计算机快捷键,怎么
添加
桌面
快捷方式
图标,教你怎么
添加
桌面
快捷方式
图标...
最近有用户反馈,
在
操作电脑的时候不知道按错什么键了,导致电脑软件图标
快捷方式
不见了,甚至连系统快捷图标也不见了的问题,这些
快捷方式
方便了我们操作,但一时间又不知道怎么
添加
桌面
快捷方式
图标,就此问题,...
Android判断是否获取到
桌面
快捷方式
权限
Android判断是否获取到
桌面
快捷方式
权限
Android O
添加
桌面
快捷方式
的示例
本篇文章主要介绍了AndroidO
添加
桌面
快捷方式
的示例,小编觉得挺不错的,现
在
分享给大家,也给大家做个参考。一起跟随小编过来看看吧
php生成网页
桌面
快捷方式
本文将介绍使用PHP生成网页
桌面
快捷方式
的代码,并
添加
图标及解决不同浏览器保存出现的乱码问题。下面跟着小编一起来看下吧
WKAddToHomeScreen:iOS
添加
快捷方式
到
桌面
客户端打开APP -> 进入到对应到APP功能模块 -> 点击
添加
快捷方式
到
桌面
按钮 -> 跳转浏览器,并加载引导页面,点击分享,选择
添加
到主屏幕 -> 从主屏幕点击刚刚
添加
到快捷功能,跳转到APP的对应界面。 根据笔者了解到...
ios
添加
快捷方式
到
桌面
ios
添加
快捷方式
到
桌面
添加
一个应用类的功能到主屏幕,点击
快捷方式
跳转到APP指定功能
Android
添加
(创建)、删除及判断是否存
在
桌面
快捷方式
的方法
主要介绍了Android
添加
(创建)、删除及判断是否存
在
桌面
快捷方式
的方法,涉及Android针对
桌面
快捷方式
的相关操作技巧,需要的朋友可以参考下
Android程序开发之手机APP创建
桌面
快捷方式
主要介绍了Android程序开发之手机APP创建
桌面
快捷方式
的相关资料,需要的朋友可以参考下
Visual Studio Community 2015 -
桌面
添加
快捷方式
Visual Studio Community 2015 -
桌面
添加
快捷方式
1. 打开文件位置 C:\ProgramData\Microsoft\Windows\Start Menu\Programs 2.
桌面
添加
快捷方式
2.1 复制到
桌面
C:\ProgramData\Microsoft\Windows\Start Menu\...
通过程序
在
桌面
添加
快捷方式
在
程序中把一个软件的
快捷方式
添加
到
桌面
上,按如下三步即可: (1)创建一个
添加
快捷方式
的Intent,该Intent的Action属性值应该为com.android.launcher.action.INSTALL_SHORTCUT (2)通过为该Intent
添加
Extra属性来...
android创建
桌面
快捷方式
仿照微信或是淘宝网,发送
快捷方式
到
桌面
,主要代码如下: // 安装的Intent Intent shortcut = new Intent("com.android.launcher.action.INSTALL_SHORTCUT"); // 快捷名称 shortcut.putExtra(Intent.EXTRA...
C#做的
桌面
快捷方式
管理程序
之前做了个c#写的类似于360
桌面
的运用程序,能实现360
桌面
的基本功能。现对之前的做了些改进,能够显示
快捷方式
图标。
信息系统项目管理师范文(采购管理).docx
信息系统项目管理师范文(采购管理).docx信息系统项目管理师范文(采购管理).docx信息系统项目管理师范文(采购管理).docx信息系统项目管理师范文(采购管理).docx信息系统项目管理师范文(采购管理).docx信息系统项目管理师范文(采购管理).docx信息系统项目管理师范文(采购管理).docx信息系统项目管理师范文(采购管理).docx
发帖
非技术区
加入
微信扫一扫
点击复制链接
814
社区成员
5.3w+
社区内容
Delphi 非技术区
社区管理员
申请成为版主
帖子事件
创建了帖子
2004-05-03 09:49
社区公告
暂无公告