请教打印机问题

Question

请教大家在DELPHI中如时时何判断打印机器是否联机呢？急！！多谢！！！

Answer 1

用API:Openprinter(在Winpool.pas中)
看这个行不行:
var
  pPrinterName: PChar;
  phPrinter: Cardinal;
  Flag: boolean;
begin
  pPrinterName := 'HP LaserJet 4050 Series PCLd';
  Flag := Openprinter(pPrinterName,phPrinter,nil);
  if Flag then
    OutputDebugString('The Printer is finded.')
  else
    OutputDebugString('The Printer is not finded.');
end;