在一台未安装打印机而安装了传真机的电脑，如何让它显示未安装打印机?

Question

在一台未安装打印机而安装了传真机的电脑，如何让它显示未安装打印机?
用uses
  Printers;
showmessage(Inttostr(Printer.Printers.Count));会找到传真机,把传真机当打印机
请问有其他方法没有?谢谢

Answer 1

教你一个烂招，但也管用，可以检测出本机是否已安装打印机
其中combobox.visible:=False;uses Printers;procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Items.Assign(Printer.Printers);
  if ComboBox1.Items.CommaText='' then
     Messagedlg('你需要安装打印机才能打印！', mtError,[mbOk],0)
  else .........
end;