blob: fa4bc8e02bcb49f57012a9870518cc338e53aa78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
Program Hhex;
{
Small example/test of the html help OCX.
Marco van de Voort (C) 2009
Copy ref.chm from the CHM distribution to this dir.
}
{$mode objfpc}{$H+}
uses htmlhelp;
var
HelpfileName : AnsiString;
htmltopic : AnsiString;
res : Integer;
Begin
Helpfilename:='ref.chm';
htmltopic := 'ref/refli3.html';
Writeln('Html example 1');
Writeln('note: Copy ref.chm from the CHM distribution to this dir');
// HH_DISPLAY_INDEX or HH_DISPLAY_SEARCH work too.
Writeln('calling TOC');
Res:=HtmlHelpA(0,pchar(helpfilename) ,HH_DISPLAY_TOC,0);
Writeln('program now blocked on readln, press enter (in console window) to continue');
readln;
writeln('Showing a topic that is probably about dialog.');
// probably because due to automatic generation filenames and exact contact can drift.
Res:=HtmlHelpA(0,pchar(helpfilename) ,HH_DISPLAY_TOPIC,ptruint(pchar(htmltopic)));
Writeln('program now blocked on readln, press enter (in console window) to continue');
readln;
Writeln('ready. Note that the windows die automatically on exit of the program');
{
Not demoed yet : HH_HELPCONTEXT. Load on ID, because we have no files that do that yet
}
end.
|
