{ **** 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.