在打印时，如何检测打印机是否插好？？请指教

Question

如题

Answer 1

uses Printers;procedure TForm1.Button1Click(Sender: TObject);
begin
  if Printer.Printers.Count > 0 then
   ShowMessage('安装了打印机');
end;

Answer 2

在98下的检测已经基本可以. 
嵌入 
var c:byte; 
asm 
push edx 
mov ax,40h 
mov es,ax 
mov edx,es:[8] 
inc edx 
in al ,dx 
mov c1,al 
pop edx 
end; 
再根据c1的值来判断打印机的状态.

Answer 3

在xp下试了一下，下面的代码不行啊，，
uses Printers;procedure TForm1.Button1Click(Sender: TObject);
begin
  if Printer.Printers.Count > 0 then
   ShowMessage('安装了打印机');
end;