没有安装打印机时，采用直接字符打印会出现停止响应问题，不知是否有人有解决方法？？？(100分)

try
AssignFile(PrinterFile, 'LPT1');
ReWrite(PrinterFile);
Write(PrinterFile, '打印内容');
finally
CloseFile(PrinterFile);
end;
采用上面的代码进行直接字符打印，但如果没有安装打印机，则程序停止打印！
我知道只要随便安装一个打印机时就可以解决，别人用我的程序不知道这个事情，所以还是在程序自身解决为好！或者能够检测出来没有安装'LPT1'或者'Com1'这些字符所指示的打印机也可以！

我没有测试楼主的代码，如果问题真是没有安装打印引起的，可以在打印前检测一下有没有安装打印机；
uses Printers；
Printer.Printers.Count;
//获得当前安装的打印机的数量