檢測存在印表機 |
|
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
此為轉貼資料 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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |