| changeset 3971 | 5c82ee165ed5 |
| parent 3969 | 5f4ef3db0a65 |
| child 4357 | a1fcfc341a52 |
| 3970:0f6e3219c108 | 3971:5c82ee165ed5 |
|---|---|
235 end; |
235 end; |
236 |
236 |
237 procedure SendIPCTimeInc; |
237 procedure SendIPCTimeInc; |
238 const timeinc: shortstring = '#'; |
238 const timeinc: shortstring = '#'; |
239 begin |
239 begin |
240 AddFileLog('Send #'); |
240 {$IFDEF DEBUGFILE}AddFileLog('IPC Send #');{$ENDIF} |
241 SendIPCRaw(@timeinc, 2) |
241 SendIPCRaw(@timeinc, 2) |
242 end; |
242 end; |
243 |
243 |
244 procedure IPCWaitPongEvent; |
244 procedure IPCWaitPongEvent; |
245 begin |
245 begin |