如何打开含有中文路径的中文.chm帮助文件？
用ShellExecute函数只能打开英文路径的英文名的.chm文件
但我想打开中文的却不行！必如下面的：
c:\我的文档\资料.chm !!!!!!!!!!!!!!
问题点数：20、回复次数：7Top
1 楼dingming（丁叮）回复于 2001-04-29 09:41:00 得分 5
.chm文件不能直接用shell运行,用下面的方法即可：
shell "hh c:\我的文档\资料.chm"
Top
2 楼DeD（似水年华）回复于 2001-04-29 09:42:00 得分 10
'看这边
Option Explicit
Private Const HH_DISPLAY_TOPIC = &H0
Private Const HH_SET_WIN_TYPE = &H4
Private Const HH_GET_WIN_TYPE = &H5
Private Const HH_GET_WIN_HANDLE = &H6
Private Const HH_DISPLAY_TEXT_POPUP = &HE ' Display string resource ID or
' text in a pop-up window.
Private Const HH_HELP_CONTEXT = &HF ' Display mapped numeric value in
' dwData.
Private Const HH_TP_HELP_CONTEXTMENU = &H10 ' Text pop-up help, similar to
' WinHelp's HELP_CONTEXTMENU.
Private Const HH_TP_HELP_WM_HELP = &H11 ' text pop-up help, similar to
Private Declare Function HtmlHelp Lib "hhctrl.ocx" Alias "HtmlHelpA" _
(ByVal hwndCaller As Long, ByVal pszFile As String, _
ByVal uCommand As Long, ByVal dwData As Any) As Long
Public Function ShowHtmlHelp(ByVal hwnd As Long, ByVal strHelpFile As String, Optional ByVal lContextID = 0)
Dim hwndHelp As Long
Dim ContextID As Long
hwndHelp = HtmlHelp(hwnd, strHelpFile, HH_DISPLAY_TOPIC, ContextID)
End Function
Private Sub Command1_Click()
ShowHtmlHelp Me.hwnd, "c:\我的文档\资料.chm"
End Sub
Top
3 楼zzy198（小周）回复于 2001-04-29 11:20:00 得分 0
DeD(似水年华):
运行后，没报错，也没什么反应，怎么办？Top
4 楼zzy198（小周）回复于 2001-04-29 11:25:00 得分 0
dingming(丁叮)：
你的方法好像也不行！报错：不能打开文件....
另外你的语句中〔shell "hh c:\我的文档\资料.chm" 〕“hh”什么意思？
Top
5 楼kevin_gao（困了！累了！睡觉了！）回复于 2001-04-29 11:34:00 得分 5
hh是用来打开 .chm的程序，你的.chm文件最终还是通过hh打开的。
你这样看看:(shell "c:\windows\hh.exe c:\我的文档\资料.chm")
我这样是没问题的：Shell "c:\windows\hh.exe D:\新建文件夹\高.chm"
btw:桌面上的我的文档是放在：c:\my documents\下，不是中文的路径！Top
6 楼zzy198（小周）回复于 2001-04-29 11:39:00 得分 0
我发现问题了，我的机器区域设置了“美国”，改为“中国”就好了，
但是我的VB6就有乱码了！！！Top
7 楼kevin_gao（困了！累了！睡觉了！）回复于 2001-04-29 11:40:00 得分 0
Faint!
给分！Top
