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;

推荐分享