[delphi-br] Erro Verificar Impressora On Line + winXP

Thu, 14 Jul 2005 20:51:26 -0700 

Pessoal, achei a seguinte função para verificar se a impressora esta
on line na porta informada, mas esta dando um erro no WinXP. Não
testei em outras versóes pois náo tenho aqui.


{-------------------------------------------------------------------------}
function TForm1.PrinterOnLine(Porta: TPorts): Boolean;
var
  nResult: Byte;
  PrnNum : Word;   // 0 para porta LPT1, 1 para porta LPT2, etc.
begin
        PrnNum := ord( Porta );

  asm
    mov ah, $02;
    mov dx,PrnNum;
// ------ linha onde aparece o erro
    Int $17;
// ------ linha onde aparece o erro
    mov nResult,ah;
  end;

  result := (nResult and $80) = $80;   //decimal=128  Bin=10000000 ou
                                       //seja, testando o 7º bit
end;

Alguem tem alguma dica sobre isso???





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a