直接下来输出字符到LPT1(200分)

我想直接输出字符到lpt1,使用方法如下：
procedure prints;
var F:TextFile;
begin
AssignFile(F,'LPT1');
rewrite(F);
write(F,'输出的字符');
closefile(F);
end;
以上代码在win2000,win98下都可以通过，有一个问题是：
在win98下如果打印机没接电源或者没接电源时，执行到rewrite(F)会死机,
但在win2000却不会，请问是何原因？有无办法解决？

只好先检测打印机状态了
http://www.delphibbs.com/delphibbs/dispq.asp?lid=232399

to:ZRWeng
谢了。
如何检测，我试的不准确，为何2000中没事呢？
我回去研究研究