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 stringgrid如何清空

Delphi中的字符串分割

dekphi 智能《疯狂刷新》辅助工具v3.1更新开源

strpcopy 将字符串复制到字符数组中

Delphi dbgrid刷新数据

Delphi 文件传输的代码

Delphi padl 处理字符串的函数

Delphi通过窗口标题结束指定进程函数

Delphi线程的创建、挂起、激活与终止

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

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