RE: [delphi-br] Testar a impressora

Dicazinha mais furada! []s >From: "anluizalr" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: delphi-br@yahoogrupos.com.br >Subject: [delphi-br] Testar a impressora >Date: Thu, 28 Jul 2005 23:33:48 - > >Testar a Impressora > >Func

[delphi-br] Testar a impressora

Testar a Impressora Function TForm1.PrinterOnLine : Boolean; Const PrnStInt : Byte = $17; StRq : Byte = $02; PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. } Var nResult : byte; Begin Asm mov ah,StRq; mov dx,PrnNum; Int $17; mov nResult,ah; end; PrinterOnLine := (nResult and $80) = $80; end;