Código Delphi - Como Verificar se a Impressora Está Ativa ou Não

Código Delphi

// Função: Checar Impressora Ativa.

// Verifica se a Impressora Está Ativa ou Não.

Código

function IsPrinter : 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;
IsPrinter := (nResult and $80) = $80;
end;