如果LPT1不是默认打印的话,程序会死掉(2分)

如果LPT1不是默认打印的话,程序会死掉
Assignfile(F,'lpt1');
Rewrite(F);
writeln(F,'-----------------');
CloseFile(F);
close;
如何能检测lpt1是否为默认打印端口？

有人遇到过吗

EnumPrintDevice

1. sl.savetofile('c:/1tmp.txt')
2. copy('c:/1tmp.txt',prn);
要我写例子吗？

话题1475649的标题是： 如何能够在NT/2000下只打印文本（字符输出使用硬字库）1 (100分)
分类：报表/统计图形 delp (2002-12-01 16:24:00)
目前使用Canvas打印速度及不理想，真怀念DOS和UNIX终端呀

snappy (2002-12-01 18:10:00)
有一个好象是RAWPrint控件可以做到

delp (2002-12-02 8:43:00)
老兄，我不想使用控件。

delp (2002-12-02 9:06:00)
snappy 老兄，没想到RAWPrint竟然送源码，20分先行送上，如果你解释一下，我余下80分立即奉献

Richard3000 (2002-12-04 11:22:00)
不好意思,不知道

hfghfghfg (2003-06-24 9:38:00)
stringlist.savetofile(temp.txt);
copy temp.txt prn//myPrint.bat
ShellExecute(self.Handle, 'open', pchar(ExePath + 'PrintData/myPrint.bat'), '', pchar(ExePath + 'PrintData/'), SW_HIDE);

hfghfghfg (2003-06-24 9:41:00)
我在一家医院就是这样做的。
好处在于稳定。而且托盘上会有打印任务可以管理

delp (2003-07-08 18:38:00)
还有其他好办法吗？

delp (2003-07-08 19:08:00)
能不能直接使用打印设备什么的，而且可以通过网络打呢？

Pipi. (2003-07-08 19:17:00)
var
F: TextFile;
程序开始：
AssignFile(F, 'prn');//也可以是 lpt1: lpt2: 这样的，如果是网络打印机，可以是//aaa/ppp
Rewrite(F);
每次输出：
Write(F,字符串);
程序结束：
CloseFile(F);



hfghfghfg (2003-07-10 13:02:00)
我最初也是用
AssignFile(F, 'prn')
后来改成了
copy temp.txt prn//myPrint.bat
应为temp.txt有几十k大，我还要保留打印日志//保存temp.txt


delp (2003-07-11 10:56:00)
多人接受答案了。

hfghfghfg-30,Pipi.-50,snappy-20,的回答最终被接受。

可以判断一下.退出来.就不会了.

多人接受答案了。