| changeset 13759 | f0cb47f0bfaf |
| parent 13506 | bdac56fb6f1a |
| child 13797 | c084bd440009 |
| 13758:a0d6404a80a2 | 13759:f0cb47f0bfaf |
|---|---|
252 close(f) |
252 close(f) |
253 {$I+} |
253 {$I+} |
254 end; |
254 end; |
255 |
255 |
256 procedure SendStat(sit: TStatInfoType; s: shortstring); |
256 procedure SendStat(sit: TStatInfoType; s: shortstring); |
257 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g', 'p'); |
257 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g', 'p', 'R'); |
258 var buf: shortstring; |
258 var buf: shortstring; |
259 begin |
259 begin |
260 buf:= 'i' + stc[sit] + s; |
260 buf:= 'i' + stc[sit] + s; |
261 SendIPCRaw(@buf[0], length(buf) + 1) |
261 SendIPCRaw(@buf[0], length(buf) + 1) |
262 end; |
262 end; |