Add the attached .lib file to your project. Use this interface:
INTERFACE
FUNCTION HtmlHelp (hWndMain, lpszHelp, uCommand, dwData)
USE ifwinTY
integer(BOOL) :: HtmlHelp ! BOOL
!DEC$ ATTRIBUTES DEFAULT, STDCALL, DECORATE, ALIAS:'HtmlHelpA' :: HtmlHelp
integer(HANDLE) hWndMain ! HWND hWndMain
!DEC$ ATTRIBUTES REFERENCE, ALLOW_NULL :: lpszHelp
character*(*) lpszHelp ! LPCSTR lpszHelp
integer(UINT) uCommand ! UINT uCommand
integer(ULONG_PTR) dwData ! ULONG_PTR dwData
END FUNCTION
END INTERFACE
and then your procs will need to process WM_HELP in the message loop handler:
CASE (WM_HELP)
rval = HtmlHelp (ghwndmain, helppathname, HH_DISPLAY_TOPIC, NULL)
Thanks Paul,
Where are HH_DISPLAY_TOPIC and other such constants defined?