delphi编程创建桌面快捷方式

uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl;
procedure TForm1.N2Click(Sender: TObject);
var
tmpObject : IUnknown;
tmpSLink : IShellLink;
tmpPFile : IPersistFile;
PIDL : PItemIDList;
StartupDirectory : array[0..MAX_PATH] of Char;
StartupFilename : String;
LinkFilename : WideString;
begin
//创建快捷方式到桌面
StartupFilename :=Application.ExeName;
tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展
tmpSLink := tmpObject as IShellLink;//取得接口
tmpPFile := tmpObject as IPersistFile;//用来储存*.lnk文件的接口
tmpSLink.SetPath(pChar(StartupFilename));//设定所在路径
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));//设定工作目录
SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);//获得桌面的Itemidlist
tmpSLink.SetDescription(’我的程序的描述);
tmpSLink.SetIconLocation(Pchar(StartupFilename),0);
SHGetPathFromIDList(PIDL,StartupDirectory);//获得桌面路径
LinkFilename := StartupDirectory + ’\我的程序.lnk’;
tmpPFile.Save(pWChar(LinkFilename),FALSE);//保存*.lnk文件
end;

转载于:https://www.cnblogs.com/honeynm/p/4105031.html

delphi编程创建桌面快捷方式相关推荐

Linux几个版本下创建桌面快捷方式、开始菜单快捷方式、文件管理器右键菜单(只deepin uos 20)
适配情况: 银河麒麟V10, 桌面图标不显示,开始菜单那显示效果可以中标麒麟V6, 二者图标都不显示,且开始菜单那未出现条目 Ubuntu20, 桌面快捷方式不起作用, 开始菜单起作用 Ubuntu ...
ubuntu clion 创建桌面快捷方式
ubuntu clion 创建桌面快捷方式首先在终端下输入 cd /usr/share/applications/ 进入applications目录下,建立一个clion.desktop文件 sud ...
解决Inno Setup制作安装包无法创建桌面快捷方式的问题
昨天想把个java程序做成exe安装软件,然后就去下载了Inno Setup这个软件安装包制作软件,Inno Setup这个软件确实非常好用,但是由于我下载的中文汉化版,根据向导一步步来就是不创建桌面 ...
[Android]为指定的应用创建桌面快捷方式
网上一搜一大把为自己的应用创建快捷方式,但是本文的侧重点在为"指定的应用"创建桌面快捷方式. 常见的桌面快捷方式有两要素:1.应用名 2.应用图标. 指定应用图标的信息是: ...
android自动创建桌面,Android应用启动后自动创建桌面快捷方式的实现方法
Android的开发其实是比较灵活的,其实在安装了Android应用程序之后,会在桌面上自动创建快捷方式,接下来爱站技术频道小编将会介绍Android应用启动后自动创建桌面快捷方式的实现方法给大家,有 ...
Web安装项目创建桌面快捷方式
一.WEB安装项目部署 1.新建:新建项目-安装和部署项目-WEB安装项目 2.部署: (1)进入文件系统视图,"项目-右键-视图-文件系统";也可以直接点"解决方案资源 ...
Android应用启动后自动创建桌面快捷方式
为什么80%的码农都做不了架构师?>>> 和IOS开发和Windows Phone开发相比,Android是开放的,Android上的开发也相对更加灵活,能够做很多事情.有的朋 ...
如何在Ubuntu上创建桌面快捷方式
Desktop icons should be simple, but they're not on Ubuntu 18.04 LTS and newer releases like Ubuntu 1 ...
学习：Web安装项目创建桌面快捷方式及重写安装类（转）
一.WEB安装项目部署 1.新建: 新建项目-安装和部署项目-WEB安装项目 2.部署: (1)进入文件系统视图,"项目-右键-视图-文件系统";也可以直接点"解决方案资 ...

delphi编程创建桌面快捷方式

delphi编程创建桌面快捷方式

delphi编程创建桌面快捷方式相关推荐

最新文章

热门文章