7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
pigpag 2003-09-06
- 打赏
- 举报
//App.Path + "\help.chm",
同志们，做事要细心！！如果程序放在根目录下，你就死的惨
同志们，做事要细心！！如果程序放在根目录下，你就死的惨
horsewww 2003-09-06
- 打赏
- 举报
这个绝对可以，把help.chm放到工程目录里
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
Dim rt As Long
rt=ShellExecute(Me.hwnd, "Open", App.Path + "\help.chm", "", "", 1)
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
Dim rt As Long
rt=ShellExecute(Me.hwnd, "Open", App.Path + "\help.chm", "", "", 1)
tbbttbbt 2003-09-06
- 打赏
- 举报
hh.exe 是MS里打开.hlp,.chm的东东
chenkangli 2003-09-06
- 打赏
- 举报
ii=shell(app.path & "xxx.chm")
wucongzh 2003-09-06
- 打赏
- 举报
HH.EXE是什么？
LCAAA 2003-09-06
- 打赏
- 举报
ii = Shell(appPath & "HH.EXE " & appPath & "hy.chm", vbMaximizedFocus)
