{
Copyright (c) 咏南工作室　2006.
作者：陈新光 迫切地想找一份工作，希望诸位提携
ToDo：驱动电子钱箱
原理：对文本输出. 当文本文件名为“lpt1、com1......”即是对该端口输出
提示：请参详ESC/POS指令集
}


procedure openMoneyBox(sPort: string = 'lpt1');

var

tf: textfile;

begin

try

assignfile(tf, sPort);

rewrite(tf);

writeln(tf, chr(27) + chr(112) + chr(0) + chr(18) + chr(22));

finally

closefile(tf);

end;

end;  

（出处：DelphiFans.com）