如何给应用程序创建快捷方式

[jnww]

在自己的程序中动态地创建其他程序的快捷方式，应该怎么做？

[pino]

具体函数记不清楚了，反正是外壳的函数，在msdn里面找一下

[Kingron]

这个问题以前回答过，你搜索一下，可以节省分数！
uses shlobj,activex,comobj;
var
anobj:iunknown;
link:ishelllink;
pfile:ipersistfile;
wfilename:widestring;
begin
anobj:=createcomobject(clsid_shelllink);
link:=anobj as ishelllink;
pfile:=anobj as ipersistfile;
link.SetPath(pchar(paramstr(0)));
link.SetWorkingDirectory(PCHAR(EXTRACTFILEPATH(PARAMSTR(0))));
wfilename:=WINDIR+'\DESKTOP\test.lnk';
pfile.Save(pwchar(wfilename),false);
end;