| changeset 13812 | 1f15b0ee8e34 |
| parent 13773 | c084bd440009 |
| child 13833 | 76a1d6275cd3 |
| 13811:54725a1d1db8 | 13812:1f15b0ee8e34 |
|---|---|
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', 'h'); |
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; |