2013年1月5日
USB打印机开钱箱
摘要： type TOutBufPassThrough = record // 用于USB接口打印机开钱箱 // 调用windows.extEscape可以直接用extEscape(handle, PASSTHROUGH, sizeOf(outBuf), @outBuf, 0, nil)向设备发送esc命令 阅读全文
posted @ 2013-01-05 17:38 delphi中间件 阅读(1055) 评论(0) 推荐(0) 编辑
网络时间校对
摘要： 客户端登录的时候，自动同中间件校对时间。procedure TdmCommonFun.setLocalDateTime(Value: TDateTime);var lSystemDateTime: TSystemTime;begin DateTimeToSystemTime(Value, lSystemDateTime); SetLocalTime(lSystemDateTime);end; 阅读全文
posted @ 2013-01-05 17:36 delphi中间件 阅读(630) 评论(0) 推荐(0) 编辑
XE 获取硬盘序列号
摘要： function TdmCommonFun.GetIdeSerialNumber: AnsiString; stdcall;const IDENTIFY_BUFFER_SIZE = 512;type TIDERegs = packed record bFeaturesReg: Byte; // Used for specifying SMART "commands". bSectorCountReg: Byte; // IDE sector count register bSectorNumberReg: Byte; // IDE sector number registe 阅读全文
posted @ 2013-01-05 17:35 delphi中间件 阅读(876) 评论(0) 推荐(0) 编辑