谢谢:
我付上程序,请看:
var
AppPath:string;
link: HH_AKLINK;
begin
AppPath:=ExtractFileDir(Application.ExeName);
link.cbStruct := sizeof(HH_AKLINK)
link.fReserved := FALSE
link.fIndexOnFail := false
link.pszKeywords :='信息查询'
//'index';
link.pszUrl := nil;
link.pszMsgText := nil;
link.pszMsgTitle := nil;
link.pszWindow := 0;
link.fIndexOnFail := false
HtmlHelp( handle,AppPath+'/camis.chm',HH_KEYWORD_LOOKUP,DWORD_PTR(@link));