Função impressora on line
Função para saber se a impressora esta on line ou off line , feita no Delphi 7.function TForm1.ImpressoraOnLine: Boolean;
Const
PrnStInt : Byte = $17;
StRg : Byte = $02;
PrnNum : Word = 0; {0 para Lpt1, 1 para Lpt2, etc}
Var
nResult : Byte;
begin
Asm
Mov ah,StRg;
Mov dx,PrnNum;
Int $17;
Mov nResult,ah;
end;
ImpressoraOnLIne := (nResult and $80) = $80;
end;