在桌面上创建.lnk的方法

最新推荐文章于 2024-04-03 15:58:20 发布

iteye_12363

最新推荐文章于 2024-04-03 15:58:20 发布

阅读量364

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi\Windows编程

本文链接：https://blog.youkuaiyun.com/iteye_12363/article/details/81883956

Delphi\Windows编程专栏收录该内容

27 篇文章

订阅专栏

procedure createico(s:string;s1:string);//s:程序名称　s1:快捷方式名称
var
   tmo:iunknown;
   tms:ishelllink;
   tmpf:ipersistfile;
   pidl:pitemidlist;
   sd:array[0..max_path] of char;
   sf,ss:string;
   linkf:widestring;//要引用shlobj,comobj,activex 在 uses
begin
sf:=s;
tmo:=createcomobject(clsid_shelllink);
tms:=tmo as ishelllink;
tmpf:=tmo as ipersistfile;
s:=extractfilepath(s);
tms.SetPath(pchar(sf));
tms.setworkingdirectory(pchar(s));
shgetspecialfolderlocation(0,csidl_desktopdirectory,pidl);
shgetpathfromidlist(pidl,sd);
ss:=sd;
ss:=ss+'\'+(s1)+'.lnk';
linkf:=ss;
tmpf.save(pwchar(linkf),false);
end;