testar impressora
bom dia pessoal, estou precisando fazer testes com a impressora:
-já sei como fazer pra saber se ela está instalada ou não
-preciso saber se ela está conectada fisicamente ao meu computador (ela está corretamente instalada)
-se ela está ligada ou não (está instalada e conectada ao meu computador)
Agradeço a colaboração de vocês.
-já sei como fazer pra saber se ela está instalada ou não
-preciso saber se ela está conectada fisicamente ao meu computador (ela está corretamente instalada)
-se ela está ligada ou não (está instalada e conectada ao meu computador)
Agradeço a colaboração de vocês.
Multsoft
Curtidas 0
Respostas
Lindomar.des
23/11/2003
Colega,
function impressoraOk: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;
impressoraOk := (nResult and $80) = $80;
end;
não funciona em nt/2000/xp...
Lindomar Sampaio
Vila Velha-ES
function impressoraOk: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;
impressoraOk := (nResult and $80) = $80;
end;
não funciona em nt/2000/xp...
Lindomar Sampaio
Vila Velha-ES
GOSTEI 0