Автор: Oleg Gashev
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Использование справки HTML Help

Зависимости: hhctrl.ocx
Автор:       Oleg Gashev, oleg@gashev.com, ICQ:115695048, Israel, Rehowot
Copyright:   http://gashev.com
Дата:        04 мая 2002 г.
***************************************************** }

unit uHtmlHelp;

interface
uses Windows;
function HtmlHelpA(hwndCaller: HWND; pszFile: PAnsiChar;
  uCommand: UInt; dwData: DWORD): HWND; stdcall; external 'hhctrl.ocx';

implementation

end.

unit SDIMAIN;
// Main Window
interface

uses........., uHtmlHelp, .....;

const
  HH_CLOSE_ALL = $0012;

  ......
  ......

function TSDIAppForm.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  HtmlHelpA(handle, PChar(m_HelpFile), 15, Data);
  CallHelp := true;
end;

procedure TSDIAppForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  ...........
  HtmlHelpA(handle, PChar(m_HelpFile), HH_CLOSE_ALL, 0);
end;

end.