此為轉貼資料 http://www.yesky.com/20000130/27526.shtml 檢測存在印表機 Printers是專門用來控制印表機的，可是在沒有安裝印表機時，卻會提示I/O錯誤，所以必須有一個檢測是否存在印表機的方法，我試過很多方法，可是I/O錯誤總是比我的判斷早出現，所以採用以下的爛招來檢測印表機。首先在uses增加Printers，再準備一個列表框ComboBox1，其屬性Visible設爲FALSE，然後在列印之前執行下列語句，那麽就可以檢測到是否存在印表機了： procedure TForm1.ButtonClick(Sender: TObject); begin ComboBox1.Clear; ComboBox1.Items.Assign(Printer.Printers); if ComboBox1.Items.CommaText= then Messagedlg(你需要安裝印表機才能列印！,mtError,[mbOk],0); else Form1.Print; end; ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind