1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{}
const
{
OldStatusText:array [0..15] of pWideChar =
(nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil,nil);
}
OldXStatus:array [0..31] of byte =
(255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,
255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255);
var
UseListeningTo:cardinal;
SimpleMode :cardinal;
UseStatus :cardinal;
UseExtStatus :cardinal;
UseMessages :cardinal;
KeepStatus :cardinal;
XIndepended :cardinal;
XStatusSet :cardinal;
ClearXStat :cardinal;
hINS :THANDLE;
const
Changed:cardinal=0;
LastStatus:integer=WAT_PLS_NOTFOUND;
|
