DRDOSLIB-TP/MSERROR.PAS at main · gladir/DRDOSLIB-TP · GitHub

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
{ @author: Sylvain Maltais (support@gladir.com)
  @created: 2023
  @website(https://www.gladir.com/CODER/DRDOSLIB-TP)
  @abstract(Target: Turbo Pascal 7)
}

Unit MSERROR;

INTERFACE

Const
 ED_OK=0;
 ED_FUNCTION=-1;
 ED_FILE=-2;
 ED_PATH=-3;
 ED_HANDLE=-4;
 ED_ACCESS=-5;
 ED_H_MATCH=-6;
 ED_DMD=-7;
 ED_MEMORY=-8;
 ED_BLOCK=-9;
 ED_ENVIRON=-10;
 ED_FORMAT=-11;
 ED_ACC_CODE=-12;
 ED_DATA=-13;
 ED_DRIVE=-15;
 ED_DIR=-16;
 ED_DEVICE=-17;
 ED_ROOM=-18;
 ED_PROTECT=-19;
 ED_BADUNIT=-20;
 ED_NOTREADY=-21;
 ED_BADCMD=-22;
 ED_BADDATA=-23;
 ED_BADSEEK=-25;
 ED_BADMEDIA=-26;
 ED_RNF=-27;
 ED_NOPAPER=-28;
 ED_WRFAIL=-29;
 ED_RDFAIL=-30;
 ED_GENFAIL=-31;
 ED_SHAREFAIL=-32;
 ED_LOCKFAIL=-33;
 ED_DISKCHG=-34;
 ED_NOFCBS=-35;
 ED_NOLOCKS=-36;
 ED_NET=-50;
 ED_NETACCESS=-65;
 ED_NETPWD=-73;
 ED_NETVER=-74;
 ED_NETREQ=-75;
 ED_NETTIME=-76;
 ED_NETCOMM=-77;
 ED_NETSRVR=-78;
 ED_NETLOG=-79;
 ED_EXISTS=-80;
 ED_MAKE=-82;
 ED_FAIL=-83;
 ED_STRUCT=-84;
 ED_ASSIGN=-85;
 ED_PASSWORD=-86;
 ED_PARAM=-87;
 ED_NETWRITE=-88;
 ED_NETFUNC=-89;
 ED_COMPONENT=-90;
 ED_LASTERROR=-90;
 ACTION_USER=3;
 ACTION_USER_INT=7;

IMPLEMENTATION

END.