david
f2dddaa81b
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.FastReport@13 475b051d-3a53-6940-addd-820bf0cfe0d7
62 lines
1.4 KiB
ObjectPascal
62 lines
1.4 KiB
ObjectPascal
|
|
{******************************************}
|
|
{ }
|
|
{ FastReport v4.0 }
|
|
{ Chm help viewer }
|
|
{ }
|
|
{ Copyright (c) 1998-2007 }
|
|
{ by Alexander Tzyganenko, }
|
|
{ Fast Reports Inc. }
|
|
{ }
|
|
{******************************************}
|
|
|
|
unit frxChm;
|
|
|
|
interface
|
|
|
|
{$I frx.inc}
|
|
|
|
uses Windows, Graphics;
|
|
|
|
procedure frxDisplayHHTopic(Handle: THandle; const topic: String);
|
|
|
|
|
|
implementation
|
|
|
|
const
|
|
HH_DISPLAY_TOPIC = $0000;
|
|
HH_DISPLAY_TOC = $0001;
|
|
|
|
type
|
|
THtmlHelpA = function(hwndCaller: THandle; pszFile: PChar;
|
|
uCommand: Cardinal; dwData: Longint): THandle; stdcall;
|
|
|
|
var
|
|
HtmlHelpA: THtmlHelpA = nil;
|
|
OCXHandle: THandle = 0;
|
|
|
|
function HtmlHelpInstalled: Boolean;
|
|
begin
|
|
Result := (Assigned(HtmlHelpA));
|
|
end;
|
|
|
|
procedure frxDisplayHHTopic(Handle: THandle; const topic: String);
|
|
begin
|
|
if (Assigned(HtmlHelpA)) then
|
|
HtmlHelpA(Handle, PChar(topic), HH_DISPLAY_TOC, 0);
|
|
end;
|
|
|
|
|
|
initialization
|
|
HtmlHelpA := nil;
|
|
OCXHandle := LoadLibrary('HHCtrl.OCX');
|
|
if (OCXHandle <> 0) then
|
|
HtmlHelpA := GetProcAddress(OCXHandle, 'HtmlHelpA');
|
|
|
|
finalization
|
|
if (OCXHandle <> 0) then
|
|
FreeLibrary(OCXHandle);
|
|
end.
|
|
|
|
|
|
//862fd5d6aa1a637203d9b08a3c0bcfb0 |