Delphi函数BuileLink用于在桌面创建带图标的网站快捷方式

  Function BuileLink(Shortcutlink,Shortcutico:String;Shortcutname:PChar):boolean;
begin
try
   tmpObject := CreateComObject(CLSID_ShellLink);//创建建立快捷方式的外壳扩展
   tmpSLink := tmpObject as IShellLink;//取得接口
   tmpPFile := tmpObject as IPersistFile;//用来储存*.lnk文件的接口
   tmpSLink.SetPath(pChar(Shortcutlink));//设定所在路径
   tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(Shortcutlink)));//设定工作目录
   SHGetSpecialFolderLocation(0,CSIDL_DESKTOPDIRECTORY,PIDL);//获得桌面的Itemidlist
   tmpSLink.SetDescription(Shortcutname); //默认为pchar类型，数据为string;
   tmpSLink.SetIconLocation(Pchar(Rjsflj+Shortcutico),0);
   SHGetPathFromIDList(PIDL,StartupDirectory);//获得桌面路径
   LinkFilename := WideCharToString(StartupDirectory) + '' + WideCharToString(Shortcutname) +'.lnk';
   tmpPFile.Save(PWChar(LinkFilename),FALSE);//保存*.lnk文件
except on e:exception do
  showmessage(E.message);
end;
  result:= True;
end;

//调用方法如下：
begin
BuileLink('https://fpdk.hunan.chinatax.gov.cn/','05.zhfwpt.ico','发票勾选认证'); //创建勾选认证桌面快捷方式
end;

其中https://fpdk.hunan.chinatax.gov.cn/是桌面快捷方式指向的网站链接，05.zhfwpt.ico是定义的图标，发票勾选认证是桌面图标名称