Question

ShellExecute函数为什么选择了打开文件后就不能打开同目录的exe文件？？

是不是使用了文件选择对话框通常都有个问题是，这个程序会修改默认的系统路径，然后就路径不对了
留下你的QQ号我发 软件给你
谢谢

Answer 1

应用程序修改了本身默认的目录路径。
建议用GetMOduleFileName获取程序路径。

Answer 2

改用 ShellExecute 函数绝对可以..!!

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_SHOWNORMAL = 1

Private Sub Command1_Click()
Dim pth As String
pth = "X:\3Dfile\3D.exe" '//程序路径
ShellExecute Me.hwnd, "open", pth, "", "", 1
End Sub

Answer 3

希望你在这里可以找到你要解决的问题：http://baike.baidu.com/view/1044533.htm

Answer 4

打开后 看下 SE_ERR_DDEBUSY