Oi
Vc está rodando no Win XP ?

Se for, esta function não aceita, pq o XP não deixa ela acessar recursos de 
baixo nível 

Em XP, não faço idéia como ver se ela está on line, mas manda na lista

Abço.
Omar


----- Mensagem original ----
De: willian leal <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 6 de Outubro de 2006 14:19:39
Assunto: [delphi-br]Verificar se impressora está online

Olá galera boa tarde, estou usando essa função para verificar se a
impressora está online antes de imprimir. Porém ela está dando um erro no
comando Int $17. Ela dá um Access Violation, alguém já teve esse problema?
Desde já agradeço a ajuda de todos, abraços.

function ImpressoraOnLine(Porta: Word): Boolean;
const
  Portas: Byte = $02;
var
  Resultado: Byte;
begin
  Asm
    mov ah, Portas;
    mov dx, Porta;
    Int $17;
    mov Resultado, ah;
  end;
  Result := (Resultado and $80) = $80;
end;

-- 
Willian Leal
Desenvolvedor de Softwares
MSN: [EMAIL PROTECTED]
Cel:(32) 8821 - 9182
Tel:(32) 3711 - 5012
Muriaé - MG


[As partes desta mensagem que não continham texto foram removidas]




                
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< 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]
 
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