Delphi 创建快捷方式的单元文件


本文整理自网络,侵删。

 
unit fun;



interface

uses
  Windows,Forms,SysUtils,TlHelp32,ActiveX,ComObj,ShlObj;

procedure createlink;//创建快捷方式

implementation
uses main;

procedure createlink;
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 + string('\')+ cfg.LoginName +'.lnk';
tmpPFile.Save(pWChar(LinkFilename),FALSE);//保存*.lnk文件 
end;


e

相关阅读 >>

Delphi xe6 �c使用android的zlib

Delphi 截屏函数(包含截取鼠标形状)

Delphi xe 获取android 系统版本

Delphi webbrowser.oleobject属性

Delphi 执行cmd并取得返回值

Delphi 检查ip地址合法性

Delphi ansiendstext 用法之一(路径结尾自动加\)

Delphi中sendmessage详细资料

Delphi 10.2 ide界面

Delphi 正则判断是否包含数字

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...