如何检测小票打印机的状态? ( 积分: 50 )

开发POS系统, procedure TForm1.Button1Click(Sender: TObject);
var
TxtFile : TextFile;
i : integer;
begin
AssignFile(TxtFile, 'LPT1');
ReWrite(TxtFile);
Write(TxtFile,CHR(27)+CHR(112)+CHR(0)+CHR(17)+CHR(8)); //开钱箱
Writeln(TxtFile, 'ABCDEFGHIJKLMNOPQRST1234567890');//打印
CloseFile(TxtFile);
end;
但是如果打印机关电或连不上的话,软件就会停止运行,就像死机一样,请问如何检测打印机的状态?

小票打印机的状态检测和普通打印机一样。

去这里看看:http://www.china-askpro.com/msg13/qa05.shtml

多人接受答案了。