本人想在程序中集成开始菜单及桌面的快捷方式！

Question

分别在　WINDOWS　目录中的相应目录中加入快捷方式就可以了

Answer 1

你可以用Com接口！
ISHELLLINK和IPERSIST接口！
var sl:ishelllink;
var pl:IPersist;
begin
       CoInitialize(nil);
       CoCheck(CoCreateInstance(....ISHELLLINK,sl));
       CoCheck(sl.QueryInterface(IID_IPersist,pl))
       CoCheck(pl.load('......'))
       //这里为你要读出的.lnk的完整路径！
       //pl.load之后，就可以应用ishelllink接口！如：
       sl.getpath,geticon之类，详细可查msdn！参数很好懂！
end;
       这只是读出连接文件！如果要创建！
var sl:ishelllink;
var pl:ipersist;
begin
       CoInitialize(nil);
       CoCheck(CoCreateInstance(....ISHELLLINK,sl));
       CoCheck(sl.seticon(...))
       //调用这些set开头的函数，可用于设置.lnk文件的具体内容！ 
       CoCheck(sl.queryinterface(IID_IPERSIST,pl));
       //最后，由ipersist接口把这个文件存进特定目录即可！
       CoCheck(sl.save('路径文件名'));
end;

Answer 2

你可以用Com接口！
ISHELLLINK和IPERSIST接口！
var sl:ishelllink;
var pl:IPersist;
begin
       CoInitialize(nil);
       CoCheck(CoCreateInstance(....ISHELLLINK,sl));
       CoCheck(sl.QueryInterface(IID_IPersist,pl))
       CoCheck(pl.load('......'))
       //这里为你要读出的.lnk的完整路径！
       //pl.load之后，就可以应用ishelllink接口！如：
       sl.getpath,geticon之类，详细可查msdn！参数很好懂！
end;
       这只是读出连接文件！如果要创建！
var sl:ishelllink;
var pl:ipersist;
begin
       CoInitialize(nil);
       CoCheck(CoCreateInstance(....ISHELLLINK,sl));
       CoCheck(sl.seticon(...))
       //调用这些set开头的函数，可用于设置.lnk文件的具体内容！ 
       CoCheck(sl.queryinterface(IID_IPERSIST,pl));
       //最后，由ipersist接口把这个文件存进特定目录即可！
       CoCheck(sl.save('路径文件名'));
end;