type

  TOutBufPassThrough = record   // 用于USB接口打印机开钱箱

  // 调用windows.extEscape可以直接用extEscape(handle, PASSTHROUGH, sizeOf(outBuf), @outBuf, 0, nil)向设备发送esc命令

    nDataLen: word;

    sEscData: array [0 .. 1024] of AnsiChar;

  end;

procedure TFrmCollectionOrder.OpenUSBMoneyBox;

var

  prt: TPrinter;

  esc: TOutBufPassThrough;

  sMoneyBoxOpenCommand: AnsiString;

begin

  try

    prt := Printers.Printer;

    prt.beginDoc;

    sMoneyBoxOpenCommand := AnsiString(const_OpenMoneyBoxCommand);

    esc.nDataLen := Length(sMoneyBoxOpenCommand);

    strpCopy(esc.sEscData, sMoneyBoxOpenCommand);

    Windows.ExtEscape(prt.Handle, PASSTHROUGH, sizeOf(esc), @esc, 0, nil);

    // PASSTHROUGH：允许程序直接发送数据到设备

    prt.endDoc;

  except

  end;

end;