各位富翁，请问如何在DELPHI中执行快捷方式(100分)

我现在正在做一个简单的工具软件，就是将桌面上的快捷方式或者是目录中的应用程序以
拖动的方式放入我程序的一个容器窗口中，同时将拖入的文件数据存入数据文件中
最后用LISTVIEW显示，双击LISTVIEW上的图标可以执行对应的程序。
现在的问题是：我如果拖动的是应用程序时，我的程序可以执行成功，但如果我拖动的是
应用程序以为的文件，比如说快捷方式，那么在我的程序中应该如何执行快捷方式对应的
应用程序？

快捷方式可以直接用 shell....执行：

shellexecute(0,'open','c:/windows/desktop/editplus 2.lnk',0,0,SW_SHOW);

非常感谢！