关于WinXp的*.Lnk

[CrazyHosptial]

有个源码是这样的....
例:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOW As Long = 5 '声明
-----------------------------------------------------------------
Private Sub Command11_Click()

ShellExecute Me.hwnd, "open", "D:\1.lnk", vbNullString, vbNullString, SW_SHOW

End Sub

但是在Xp下不能打开
后来小弟在运行里面试了运行d:\1.lnk 打开了选择程序的界面,小弟晕了,不知道*.Lnk需要运行哪个?或者上面的源码如何在Xp下正常运行...恳请各位帮忙...谢谢.
小弟只想运行个*.lnk 程序...怎么做啊...
谢谢了~~~

[CrazyHosptial]

?????

[hxy2003]

UP.///好了吧.

[CrazyHosptial]

还是不行啊~~~555555.........
这样吧,只要可以实现点击Command1就相当于鼠标双击D:\1.lnk就好了~~~
就是这个意思啊~~~

[danielinbiti]

ShellExecute 0, "open", "D:\1.lnk", vbNullString, vbNullString, SW_SHOW

[danielinbiti]

ShellExecute 0, "open","D:\1.lnk", vbNullString, vbNullString, 3

[danielinbiti]

ShellExecute 0, "open", "d:\l.lnk", vbNullString, vbNullString, 3

[CrazyHosptial]

我试一试~~~OK了就给你分数~~~