Public 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 LongConst SW_SHOW = 5
Call ShellExecute(ME.HWND, "open", FileName, "", "", SW_SHOW)
(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 LongConst SW_SHOW = 5
Call ShellExecute(ME.HWND, "open", FileName, "", "", SW_SHOW)
2、读取注册表HKEY_CLASSES_ROOT\htmlfile\shell\open\command下面的值,然后SHELL就行了。