Fórum Como testar se a impressora está ok em plataforma NT #324832

Pessoal eu já procurei na internet mais não achei nada a respeito eu preciso de um codigo para testar em plataforma XP ou 2000 se a impressora esta offline ou desconectada

Esses codigos abaixo não funcional
e qualquer codigo que faça uso da interrupção int 17h; não vai fucionar sobre plataforma NT.

Grato.


function 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;


function TestPrinterStatus(LPTPort: Word): Byte;
var
Status: byte;
CheckLPT: word;
begin
Status := 0;
if (LPTPort >= 1) and (LPTPort <= 3) then
begin
CheckLPT := LPTPort - 1;
asm
mov dx, CheckLPT;
mov al, 0;
mov ah, 2;
int 17h;
mov &Status, ah;
end;
end;
Result := Status;
end;