Private Declare Function GetActiveWindow Lib "user32" _
  Alias "GetActiveWindow" () As Long
 
Private Declare Function WinHelp Lib "user32" _
  Alias "WinHelpA" ( _
  ByVal hWnd As Long, _
  ByVal lpHelpFile As String, _
  ByVal wCommand As Long, _
  ByVal dwData As Long) As Long
 
' HLP-Konstanten
Private Const HELP_QUIT = &H2
Private Const HELP_CONTENTS = &H3
Private Const HELP_PARTIALKEY = &H105
Private Const HELP_HELPONHELP = &H4
Private Const HELP_CONTEXT = &H1
Private Const HELP_CONTEXTPOPUP = &H8

Public Sub Help_ShowHelp(ByVal sHelpFile As String, Optional ByVal nContextID _
  As Long = 0)
  DIm nResult As Long
  Dim hWnd As Long
 
  ' Handle des aktiven Fensters ermitteln
  hWnd = GetActiveWindow()
 
  ' Inhaltsseite / Kontextseite der Help-Datei aufrufen
  nResult = WinHelp(hWnd, sHelpFile, HELP_CONTENTS, nContextID)
End Sub

Public Sub Help_CloseHelp(ByVal sHelpFile As String)
  Dim nResult As Long
  Dim hWnd As Long
 
  ' Handle des aktiven Fensters ermitteln
  hWnd = GetActiveWindow()
 
  ' Hilfefenster schließen
  nResult = WinHelp(hWnd, sHelpFile, HELP_QUIT, CLng(0))
End Sub

' Inhaltsseite anzeigen
Help_ShowHelp "d:\temp\hilfe.hlp"
 
' Bestimmte Seite anzeigen (anhand ContextID)
Help_ShowHelp "d:\temp\hilfe.hlp", 100

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de