Fórum Socorro!!!!! Me ajudem por favor... Checar Status/Impressora #164643

        function PrinterOnLine: Boolean;
         const
          PrnStInt: Byte = $17;
          StRq: Byte = $02;
          PrnNum: Word = 0;
         var
           nResult: Byte;
         begin
           ASM
             mov ah, StRq;
             mov dx, PrnNum;
             Int $17;
             mov nResult, ah;
           end;
           Result := (nResult and $80) = $80;
         end;