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

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

楼主一个问题问了 2 次。

顶，这个问题我也很想知道。

装个虚拟打印机就解决了，