VB如何运行程序就建立一个本程序的快捷方式！
VB如何运行程序就建立一个本程序的快捷方式！
如果在不同的文件目录运行，快捷方式也要能运行到程序！
另： 还有一个问题!
比如桌面上有连个EXE程序，名称分别为1.EXE和2.EXE
如果直接双击运行2.EXE就提示“非法运行”
要双击1.EXE才能正常运行2.EXE这个程序！
请问怎么搞？
[解决办法]
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub Command1_Click()
Dim lReturn As Long
'添加到桌面
lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub
[解决办法]
参考一下我写的（怎样用代码创建桌面快捷方式）：http://topic.csdn.net/u/20080328/15/9152a78b-05b4-4c04-810d-15ad59408d33.html
