XProfan

Italia

ist vielleicht das Kommando HH_KEYWORD_LOOKUP per den uCommand-Parameter das, was Du suchst?

Wow! Das ist der fehlende Tipp! DANKE!

So funktionierts:
Kompilieren Markieren Separieren

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&

26.10.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Uwe
''Pascal''
Niemeier

Hallo Leute!

Hier eine etwas erweiterte Variante:
Kompilieren Markieren Separieren

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&: