社区
Windows Server
帖子详情
请教众仁兄:如何用代码创建应用程序的桌面快捷方式,或创建一个指向某一网页的桌面快捷方式?
jasper
2003-08-20 11:28:25
如何用代码创建应用程序的桌面快捷方式,或创建一个指向某一网页的桌面快捷方式?(delphi)
...全文
271
3
打赏
收藏
请教众仁兄:如何用代码创建应用程序的桌面快捷方式,或创建一个指向某一网页的桌面快捷方式?
如何用代码创建应用程序的桌面快捷方式,或创建一个指向某一网页的桌面快捷方式?(delphi)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lqbn
2003-08-20
打赏
举报
回复
很简单,您可以先自己建立一个这样的快捷方式,需要的时候拷贝到指定位置即可。
david245251
2003-08-20
打赏
举报
回复
只能关注!学习!
BeRoy
2003-08-20
打赏
举报
回复
这是bcb的,不过和dephi是一家的嘛!
//------------------------------------------------------------------------------
API提供了一个叫做IShellLink的COM接口允许我们创建快捷方式。为在桌面创建快捷方式,我们创建一个IShellLink对象,设置它的属性,然后把这个link保存到desktop目录。
下面的例子代码演示了怎样创建一个快捷方式。在这个例子里,这个快捷方式保存在C:\根目录下。
//----------------------------------------------------------------------
include <shlobj.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
CreateShortCut(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------
void TForm1::CreateShortCut(const AnsiString &file)
{
IShellLink* pLink;
IPersistFile* pPersistFile;
if(SUCCEEDED(CoInitialize(NULL)))
{
if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink, NULL,CLSCTX_INPROC_SERVER,IID_IShellLink, (void **) &pLink)))
{
pLink->SetPath(file.c_str());
pLink->SetDescription("哈哈,你看到我了吧.");
pLink->SetShowCmd(SW_SHOW);
if(SUCCEEDED(pLink->QueryInterface(IID_IPersistFile,(void **)&pPersistFile)))
{
WideString strShortCutLocation("C:\\bcbshortcut.lnk");
pPersistFile->Save(strShortCutLocation.c_bstr(), TRUE);
pPersistFile->Release();
}
pLink->Release();
}
}
}
//----------------------------------------------------------------------
上面的例子只是把快捷方式文件保存到了c:\根目录下,但没保存到desktop目录下。
要让快捷方式出现在桌面上,只须把快捷方式文件保存到desktop目录下。首先我们要找到windows的desktop目录。一旦我们知道了desktop所在的目录,我们就能将快捷方式文件保存到desktop目录下。然后windows就能将快捷方式图标显示到桌面上。下面是经过改进了的例子:
//----------------------------------------------------------------------
void TForm1::CreateShortCut(const AnsiString &file)
{
IShellLink *pLink;
IPersistFile *pPersistFile;
LPMALLOC ShellMalloc;
LPITEMIDLIST DesktopPidl;
char DesktopDir[MAX_PATH];
if(FAILED(SHGetMalloc(&ShellMalloc)))
return;
if(FAILED(SHGetSpecialFolderLocation(NULL,CSIDL_DESKTOPDIRECTORY,&DesktopPidl)))
return;
if(!SHGetPathFromIDList(DesktopPidl, DesktopDir))
{
ShellMalloc->Free(DesktopPidl);
ShellMalloc->Release();
return;
}
ShellMalloc->Free(DesktopPidl);
ShellMalloc->Release();
if(SUCCEEDED(CoInitialize(NULL)))
{
if(SUCCEEDED(CoCreateInstance(CLSID_ShellLink,NULL,CLSCTX_INPROC_SERVER,IID_IShellLink,(void **)&pLink)))
{
pLink->SetPath(file.c_str());
pLink->SetDescription("哈哈,你看到我了吧.");
pLink->SetShowCmd(SW_SHOW);
if(SUCCEEDED(pLink->QueryInterface(IID_IPersistFile,(void **)&pPersistFile)))
{
WideString strShortCutLocation(DesktopDir);
strShortCutLocation += "\\bcbshortcut.lnk";
pPersistFile->Save(strShortCutLocation.c_bstr(), TRUE);
pPersistFile->Release();
}
pLink->Release();
}
CoUninitialize();
}
}
//----------------------------------------------------------------------
为什么Edge一打开就跳转2345
网页
首页?
为什么Edge一打开就跳转2345
网页
首页? 大家有么有这样的经历,在网站上光明正大的下载东西,却别某乐色网站植入病毒,下面我要讲的就是我的一个亲身经历。 从某网站下载某软件,在毫不知情的情况下下载了2345 2345这个浏览器有个特点: 览器的极不稳定,基本上30分钟就要崩溃一下,目前最好的解决方法,习惯就好了。 广告弹窗根本无法关闭,都说360的浏览器有广告弹窗,360的广告弹窗可以关闭啊,在实验室的界面里把对勾去掉就行了.2345根本没有关闭的办法。最可恨的是卸载不掉。目前最好的解决方法就是继续用。大
跨表查询 model赋值问题
在实体类中,用对象其他表的实体对象做为主表的类型,对表对象作为主表的一个字段,复制时就能点出来
你用得是3.0 可能有bug,我用dotTrace.v3.1的。
其实不用纠结百分比是否总和符合数学,看做相对值也可以知道程序
代码
段的性能。
不要解释了 一个是ms的livemesh 一个是qq 都是
网页
大家觉得哪个比较牛逼 操作 和界面
请教
众
高手怎么用.NET的控件做一个记账凭证,怎么写
代码
,巨谢!
用签字笔(而不是铅笔)怎么写出畅
中国第一代技术网红,阿里云P10技术专家褚霸:我只是一个程序员 。
原文作者:阿里云技术 链接:https://www.jianshu.com/p/2190c03ac13e 云妹导读: 在阿里内部有一个“拜霸爷神教”,不少 P8、P9 级技术专家都是其中的教
众
,据说褚霸对计算机的了解到了庖丁解牛的地步。这样一位 P10 级别的技术大牛,却说:我只是一个程序员罢了。 褚霸,真名余锋,江湖人称霸爷。现阿里云弹性计算负责人,曾一手将数据库团队带到国内云数据库顶尖水平。 褚霸身上标签
众
多,中国第一代技术网红,软硬兼修,是阿里云备受外界关注的技术大牛。知乎网友对他有一句评价很经.
阿里云P10技术专家褚霸:我是一个程序员
在阿里内部有一个“拜霸爷神教”,不少 P8、P9 级技术专家都是其中的教
众
,据说褚霸对计算机的了解到了庖丁解牛的地步。这样一位 P10 级别的技术大牛,却说:我是一个程序员。 褚霸,真名余锋,江湖人称霸爷。现阿里云弹性计算负责人,曾一手将数据库团队带到国内云数据库顶尖水平。 褚霸身上标签
众
多,中国第一代技术网红,软硬兼修,是阿里云备受外界关注的技术大牛。知乎网友对他有一句评价很经典:对于计算机的...
鸿蒙 战绩 获得方式,神仙谱装备与获得方式一览
装备篇:简介:10级装备:教
众
系列20级装备:仙长系列30级装备:长老系列40级装备:灵道系列50级装备:掌门系列60级装备:真君系列70级装备:正神系列80级装备:天尊系列90级装备:未知100级装备:未知装备获得:鸿蒙两仪阵(地府)10层可获得:掌门长剑 掌门战靴20层可获得:掌门长袍 掌门护符30层可获得:真君护符40层可获得:真君护符 正神护符50层可获得:正神护符 天尊护符周天星斗阵(西...
Windows Server
6,850
社区成员
178,035
社区内容
发帖
与我相关
我的任务
Windows Server
Windows 2016/2012/2008/2003/2000/NT
复制链接
扫一扫
分享
社区描述
Windows 2016/2012/2008/2003/2000/NT
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章