請問WINXP如何可以檢測LPT1的狀態？

Winxp
  LPT1 連接打字機，沒有驅動。
  我用下面的代碼向打字機輸出文字OK.
  但如果打字機沒有聯機， Writeln(F, 'test data'); 會有超時錯誤。  AssignFile(F, 'LPT1');
  Screen.Cursor := crHourGlass;
  try
    Rewrite(F);
    Writeln(F, 'test data');
  finally
    CloseFile(F);
    Screen.Cursor := crDefault;
  end;  請問WINXP如何可以檢測LPT1的狀態？
  小弟試過網上的代碼，有用assembly中斷指令的(只適用于95/98).
  也有用win API CreateFile('LPT1'....)方法的，試過也不行，
  請各位大大幫忙！