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

如果LPT1不是默认打印的话,程序会死掉
procedure TmoneyF.button1click(Sender: TObject);
var
F:TextFile;
begin
Assignfile(F,'lpt1');
Rewrite(F);
writeln(F,'-----------------');
CloseFile(F);
close;
end;
如何能检测lpt1是否为默认打印端口？

取默认打印机,检查其端口属性