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 获取系统串口列表

Delphi各个版本编译开关值

Delphi xe6 switch元件�繁�w���}

Delphi 学习 sql 语句 - select(9): 其他

Delphi android 程序名称在哪里设置？

Delphi console 清屏代码

Delphi中in的使用

Delphi检查自身是否被调试

Delphi获取宽带ip

Delphi一个简单的穿墙下载者

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

转载请注明出处：木庄网络博客 » Delphi 创建快捷方式的单元文件