Obrigado a todos pelas dicas...
Descobri q o meu problema não é com a função mas sim com o XP q não 
permite manipular a Int $17, ou qq outra relacionada as portas de 
comunicação. Então refaço a pergunta de outra forma:
De que outra forma se poderia testar se existe ou não uma Impressora 
conectada em LPTx ou em COMx, SEM PASSAR pelo Spool do Windows, ou 
seja, Impressão direta para a porta, e, de preferencia sem nenhum 
componente extra tb?

Mais uma vez, obrigado a todos...


--- Em delphi-br@yahoogrupos.com.br, "sa_souza" <[EMAIL PROTECTED]> 
escreveu
> Olá pessoal...
> tô com um probleminha aqui...
> ----------------------------------------------------------------
> Function TForm1.VerificaImpressoraConectada(Porta:Word):Boolean;
> Const Portas :Byte = $02;
> Var   Res :Byte;
> Begin
>  Asm
>   mov ah,Portas;
>   mov dx,Porta;
>   Int $17;  //-----> aqui dá um Access Violation...
>   mov Res,ah;
>  end;
> Result := (Res and $80) = $80;
> end;
> ----------------------------------------------------------------
> em qq porta q eu escolher... alguém ai manja de Asm pra me dar uma 
> dicazinha de como resolver este erro?
> os valores para porta são:
> LPT1 = 0;
> LPT2 = 1;
> LPT3 = 2;
> LPT4 = 3;
> COM1 = 8;
> COM2 = 9;
> COM3 = 10;
> COM4 = 11;
> caso não seja nenhuma destas então deve ser um PATH válido com um 
> arquivo TXT. Ex: 'C:\Windows\impressao.txt'
> 
> Obrigado por qq ajuda...
> 
> Sérgio A Souza
> Analista de Sistemas
> THOMASINI & Associados
> Automação Comercial e Industrial
> 
> e-mail: [EMAIL PROTECTED]
> MSN/Skype: [EMAIL PROTECTED]
> msn PVT: [EMAIL PROTECTED]




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