请问：在delphi中怎么判断系统是否安装了打印机？？---------在线等待！！！

Question

大家好！偶的问题如题目所示！！！急急急！！！！

Answer 1

楼上的方法可以if Printer.Printers.Count>0 then
...

Answer 2

var
  Printer_List: TStringList;  
begin
  Printer.Refresh;
  Printer_List := TStringList.Create;
  Printer_List.Clear;
  Printer_List.Assign(Printer.Printers);
  if Printer_List.CommaText = '' then
  begin
      Application.MessageBox('打印机未安装！', '警告提示', mb_Ok + mb_iconWarning);
      application.Terminate;
  end;
end;

Answer 3

var
 ADevice,ADriver,APort:Array[0..255] of Char;
 DeviceHandle:THandle;
begin
  Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);  if DeviceHandle=0 then                //句柄是0 ，表示打印机没有装载
  begin
   Printer.PrinterIndex:=Printer.PrinterIndex;
   Printer.GetPrinter(ADevice,ADriver,APort,DeviceHandle);
  end;  if DeviceHandle=0 then
   Application.MessageBox('默认打印机不存在，请检查打印机设置！',
                          '系统信息',Mb_ok);end;

Answer 4

uses
  Printer;
try
  Printer.Handle;
except
  ShowMessage("没有安装打印机.");
end;