blob: 73c61e2cc4ddfd9690e13de6099b139b554e6574 (
plain) (
blame)
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
44
45
46
47
48
49
50
|
unit SwordAPI;
interface
const
DLLNAME = 'sword32.dll';
type
paramt = record
path, name, disc: pchar;
end;
pparamt = ^paramt;
function NewModule(modtype: PChar; params: pparamt): integer; stdcall; external DLLNAME;
procedure DeleteModule(hmod: integer); stdcall; external DLLNAME;
function ModGetTextLen(hmod: integer): integer; stdcall; external DLLNAME;
procedure ModGetText(hmod: integer; buf: PChar; size: integer); stdcall; external DLLNAME;
procedure ModGetKeyText(hmod: integer; buf: PChar; size: integer); stdcall; external DLLNAME;
function ModGetKey(hmod: integer):integer; stdcall; external DLLNAME;
function ModSetKeyText(hmod: integer; keytext: PChar):char; stdcall; external DLLNAME;
function ModSetKeyKey(hmod: integer; hkey: integer):char; stdcall; external DLLNAME;
function ModSearch(hmod: integer; stext: PChar):integer; stdcall; external DLLNAME;
procedure YoYo(x:integer; y:integer); stdcall; external DLLNAME;
procedure ModInc(hmod: integer); stdcall; external DLLNAME;
procedure ModDec(hmod: integer); stdcall; external DLLNAME;
function ModError(hmod:integer): integer; stdcall; external DLLNAME;
function NewKey(keytype:PChar):integer;stdcall; external DLLNAME;
procedure DeleteKey(hkey: integer); stdcall; external DLLNAME;
function KeyGetPersist(hkey: integer): integer; stdcall; external DLLNAME;
procedure KeySetPersist(hkey: integer; value: integer); stdcall; external DLLNAME;
function KeyError(hkey:integer): integer; stdcall; external DLLNAME;
procedure KeyGetText(hkey: integer; buf: PChar; size: integer); stdcall; external DLLNAME;
procedure KeySetText(hkey: integer; keytext: PChar); stdcall; external DLLNAME;
procedure KeySetKey(hkey: integer; hkey2: integer); stdcall; external DLLNAME;
procedure KeyInc(hkey: integer); stdcall; external DLLNAME;
procedure KeyDec(hkey: integer); stdcall; external DLLNAME;
function VerseKeyGetTestament(hkey: integer): integer; stdcall; external DLLNAME;
function VerseKeyGetBook(hkey: integer): integer; stdcall; external DLLNAME;
function VerseKeyGetChapter(hkey: integer): integer; stdcall; external DLLNAME;
function VerseKeyGetVerse(hkey: integer): integer; stdcall; external DLLNAME;
procedure VerseKeySetTestament(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeySetBook(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeySetChapter(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeySetVerse(hkey: integer; value: integer); stdcall; external DLLNAME;
function VerseKeyGetAutoNormalize(hkey: integer): integer; stdcall; external DLLNAME;
procedure VerseKeySetAutoNormalize(hkey: integer; value: integer); stdcall; external DLLNAME;
procedure VerseKeyNormalize(hkey: integer); stdcall; external DLLNAME;
implementation
end.
|
