如何在程序中建立桌面的快捷方式的办法，能举例吗？(50分)

VB的例子：
调用DLL函数CreateShotcut(),位于system/shorotcut.dll的DLL中。 声明是这样的:
Private declare function createshotcut lib"shortcut.dll" _
(byval strsorcefile$,byval strlinkfile$,byval strinitdir $ , _
byval intcmdshow %,byval strinconpath$ , _
byval lngiconindex as long) as long 调用例如：
if createshotcut(strWinDir &"/notepad.exe",shortcutpath,_
"c:/",vbnullstring,vbmaximizedfocus,vbnullstring,1) _ then ....

我找到一个控件，可以实现，谢谢大家！

建议不要使用控件,marco cantu的中译本<<Delphi4从入门到精通>>中讲到了,
很好.

最好不用控件，要用也先搞清楚是怎么做的。

多人接受答案了。