用程序如何判断打印机是喷墨打印机还是激光打印机？在线等待！

Question

用程序如何判断打印机是喷墨打印机还是激光打印机？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
 edit1.text:='请输入你的是什么打印机'；
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='激光打印机' then
 showmessage('激光打印机')
else edit1.Text='喷墨打印机' then 
 showmessage('喷墨打印机')
else showmessage('不知道是机还是鸡')
end;中不中啊？

Answer 2

uses printers
procedure TForm1.Button1Click(Sender: TObject);
var
  pp:TPrinter;
begin
  pp:=Tprinter.Create ;
  listbox1.Items :=pp.Printers;
//得到打印机列表
end;

Answer 3

WINDOWS本身都会被骗，只有通过驱动程序、打印机名来判断，但
不准确