Справка .сhm к программе

#include <htmlhelp.h>
//---------------------------------------------------------------------------
typedef HWND WINAPI (*THtmlHelpRun) (HWND, LPCSTR, UINT, DWORD);
.............................
..............................
private: // User declarations
THtmlHelpRun HtmlHelpRun; //Указатель на функцию
HMODULE HelpLib; //Библиотечный модуль hhctrl.ocx
public: // User declarations
__fastcall TFormMain(TComponent* Owner);
__fastcall ~TFormMain();
};
// файл Main.cpp
 
//---------------------------------------------------------------------------
__fastcall TFormMain::TFormMain(TComponent* Owner)
: TForm(Owner)
{
//Загружаем библиотеку
HtmlHelpRun=NULL;
HelpLib=LoadLibrary("hhctrl.ocx");
if(HelpLib)
{
FARPROC proc=GetProcAddress(HelpLib,"HtmlHelpA");
HtmlHelpRun= (THtmlHelpRun)proc;
}
if(!HtmlHelpRun)
{
FreeLibrary(HelpLib);
}
}
//---------------------------------------------------------------------------
__fastcall TFormMain::~TFormMain()
{
//Выгружаем библиотеку
if(HelpLib)
{
HelpLib=NULL;
FreeLibrary(HelpLib);
}
}
//---------------------------------------------------------------------------
// Запуск помоши кнопкой. Главный топик.
void __fastcall TFormMain::Button1Click(TObject *Sender)
{
HtmlHelpRun(Application->Handle,"help.chm", HH_DISPLAY_TOPIC, NULL);
}
//---------------------------------------------------------------------------
bool __fastcall TFormMain::FormHelp(WORD Command, int Data, bool &CallHelp)
{
//Обработчик события OnHelp
HtmlHelpRun(NULL, "help.chm", HH_HELP_CONTEXT, Data);
if(!HtmlHelpRun)
{
ShowMessage("Помощь не запускается!");
CallHelp=false;
return false;
}
if(Command!=HELP_CONTEXT)
{
ShowMessage("HELP_CONTEXT не обнаружен!");
CallHelp=false;
return false;
}
return true;
}

HtmlHelpRun(Application->Handle,"help.chm", HH_DISPLAY_TOPIC, NULL);

#include "HTMLHelpViewer.hpp"
#pragma link "HTMLHelpViewer"

include "WinHelpViewer.hpp"
#pragma link "WinHelpViewer"

CHAR buffer[100];
GetCurrentDirectory(sizeof(buffer),buffer);
WideString Help = WideString(buffer) + "\\R11_HELP.chm";
Application->HelpFile = Help;
Application->HelpCommand(HELP_CONTENTS, 0);

HWND hwnd =
   HtmlHelp(
            GetDesktopWindow(),
            "c:\\Help.chm::/Intro.htm>Mainwin",
            HH_DISPLAY_TOPIC,
            NULL) ;

bool __fastcall TForm1::ApplicationEvents1Help(WORD Command, int Data, bool &CallHelp)
 
{
  if (Command == HELP_CONTEXT || Command == HELP_CONTEXTPOPUP)
  {
    HtmlHelp(NULL, sHelpFile.c_str(), HH_HELP_CONTEXT, Data);
    // не надо звать WinHelp
    СallHelp = false;
  }
  return true;
}