blob: 04aaa08e2c26fa699e0ef0077b212bb5ac6a281b (
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
|
Const
MM_HARD = $001;
MM_SOFT = $002;
MM_FIRM = $004;
MM_APPL = $008;
MM_UTIL = $010;
MM_OPSYS = $020;
MM_RECOVER = $040;
MM_NRECOV = $080;
MM_PRINT = $100;
MM_CONSOLE = $200;
MM_NOSEV = 0;
MM_HALT = 1;
MM_ERROR = 2;
MM_WARNING = 3;
MM_INFO = 4;
MM_NULLLBL = PChar(nil);
MM_NULLSEV = 0;
MM_NULLMC = Longint(0);
MM_NULLTXT = PChar(0);
MM_NULLACT = PChar(0);
MM_NULLTAG = PChar(0);
MM_NOTOK = -(1);
MM_OK = 0;
MM_NOMSG = 1;
MM_NOCON = 4;
function fmtmsg(__classification:longint; __label:Pchar; __severity:longint; __text:Pchar; __action:Pchar; __tag:Pchar):longint;cdecl;external clib name 'fmtmsg';
function addseverity(__severity:longint; __string:Pchar):longint;cdecl;external clib name 'addseverity';
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
// Type
|
