Função para testar se a impressora está OK.

function PrinterOK(Lpt: Word): Boolean; const   PrnStInt  : Byte = $17;   StRq      : Byte = $02; var   nResult : Byte; begin    asm       mov ah,StRq;       mov dx,Lpt;       Int $17;       mov nResult,ah;    end;    Result := (nResult and $80) = $80; end; Modo de utilização: if PrinterOK(0) then    ShowMessage('Impressora OK') else    ShowMessage('Impressora sem papel ou desligada'); O parâmetro da função equivale ao número da porta da impressora. 0- LPT1 1- LPT2 e assim por diante... Não funciona em Windows NT, 2000 ou XP (infelizmente).

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.50
Data.........: 28/02/2005 23:26:48
Visualizado..: 3822 vezes
Fonte........: Marcelo Torres