XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hilfedatei: CHM-Hilfedatei mit Suchbegriff aufrufen
(C) Uwe Pascal Niemeier
window 10,10-300,300
def HtmlHelp(4) !HHCtrl.ocx,HtmlHelpA
declare ocx&
ocx&=usedll(HHCtrl.ocx)
CHM-Hilfedatei mit Suchbegriff aufrufen
(C) Uwe Pascal Niemeier
declare HH#
struct HH=Struct&,Reserved&,Keywords&,Url&,MsgText&,MsgTitle&,Window&,IndexOnFail&
dim HH#,HH
clear HH#
declare Key$,Chm$
Key$=Über das Programm ...
Chm$=KIDS.CHM
HH#.Struct&=sizeof(HH#)
HH#.Keywords&=addr(Key$)
HH#.IndexOnFail&=1
--Öffnet Help mit Index-Paneel und selektiert das Keyword (zeigt das Thema aber nicht an):
HtmlHelp(%hwnd,addr(Chm$),$13,HH#)--HH_ALINK_LOOKUP
--oder auch:
HtmlHelp(%hwnd,addr(Chm$),1,addr(Key$))--HH_DISPLAY_INDEX
--Öffnet Help mit TOC-Paneel
HtmlHelp(%hwnd,addr(Chm$),1,0)-----HH_DISPLAY_TOC
--Zeigt das Thema zum Keyword an (und selektiert es im TOC, aber nicht im Index)
HtmlHelp(%hwnd,addr(Chm$),22,HH#)--HH_KEYWORD_LOOKUP
HtmlHelp(%hwnd,addr(Chm$),$D,HH#)--HH_KEYWORD_LOOKUP
waitkey
case ocx&:freedll ocx&