Code:
LOCAL dwCookie AS DWORD LOCAL Msg AS tagMsg HtmlHelp BYVAL %NULL,BYVAL %NULL,%HH_INITIALIZE,VARPTR(dwCookie) IF TopicId > 0 THEN CALL HtmlHelp(hPrnt, $Hlpfile, %HH_HELP_CONTEXT, BYVAL CLNG(TopicId)) ELSE CALL HtmlHelp(hPrnt, $Hlpfile, 0, 0) END IF WHILE GetMessage(Msg,%NULL,0,0) IF NOT HtmlHelp (%Null,BYVAL %NULL,%HH_PRETRANSLATEMESSAGE,VARPTR(Msg)) THEN TranslateMessage Msg DispatchMessage Msg END IF SELECT CASE Msg.message CASE %WM_CHAR IF LO(WORD,Msg.wParam) = %VK_ESCAPE THEN HtmlHelp %NULL,BYVAL %NULL,%HH_CLOSE_ALL,0 EXIT LOOP END IF END SELECT WEND HtmlHelp BYVAL %NULL,BYVAL %NULL,%HH_UNINITIALIZE,dwCookie
Leave a comment: