XProfan

English

is Perhaps the command HH_KEYWORD_LOOKUP for uCommand-Parameter the, what You seek?

Wow! this is the fehlende Tipp! THANK YOU!

so funktionierts:
Compile Mark Separation

def HtmlHelp(4) !HHCtrl.ocx,HtmlHelpA
def &HH_DISPLAY_TOPIC 1
def &HH_KEYWORD_LOOKUP $0D
struct tAKLIN =
cbStruct&,
fReserved&,
pszKeywords&,
pszUrl&,
pszMsgText&,
pszMsgTitle&,
pszWindow&,
fIndexOnFail&
window 10,10-300,300
declare ocx&, AKLIN#, KeyWord$
dim AKLIN#, tAKLIN
ocx&=usedll(HHCtrl.ocx)
KeyWord$ = assign

with AKLIN#

    .cbStruct&     = sizeOf(AKLIN#)
    .fReserved&    = 0
    .pszKeywords&  = addr(Keyword$)
    .fIndexOnFail& = 1

endwith

HtmlHelp(0, profan.chm, &HH_KEYWORD_LOOKUP, AKLIN#)
waitkey
case ocx&:freedll ocx&

10/26/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Uwe
''Pascal''
Niemeier

Hello people!

here a something erweiterte Variante:
Compile Mark Separation

window 10,10-300,300
def HtmlHelp(4) !HHCtrl.ocx,HtmlHelpA
declare ocx&
ocx&=usedll(HHCtrl.ocx)
declare HH#
struct HH=Struct&,Reserved&,Keywords&,Url&,MsgText&,MsgTitle&,Window&,IndexOnFail&
dim HH#,HH
clear HH#
declare Key$,Chm$
Key$=Clipboard
Chm$=D:1TestViewhlp.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$),2,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$),$D,HH#)--HH_KEYWORD_LOOKUP
waitkey
case ocx&: