Desculpe a pergunta, mas testar a impressora para Quê ??? Sabia que existe o gerenciador de impressão no Windows ??? E que ao ligar a impressora o documento é impresso imediatamente ???
[s] ===================== Eduardo Jedliczka GeraSoft Informática Apucarana - PR ===================== ----- Original Message ----- From: Rubem Rocha To: [EMAIL PROTECTED] Sent: Thursday, October 28, 2004 4:41 PM Subject: RES: [delphi-br] Testar se impressora esta on line no windows XP Não funciona pq todos os ambientes operacionais baseados em plataforma NT (NT/2000/XP) são muito restritivos quanto aos programas acessarem recursos de baixo nível do computador, como esse acesso a uma porta de I/O que é mostrada na dica que vc pegou pra usar no seu programa. Uma sáida seria fazer chamadas a uma camada COM disponível para todas as plataformas Windows chamada WMI. Ela possui informações de hardware e software que podem ser coletadas para computadores locais ou em rede. Pesquise mais em http://msdn.microsoft.com. Agora, se vc quer uma solução pra 'pronta entrega', eu não disponho no momento. Algum colega mais experiente possui alguma chamada de função da API do Windows que faça o que o Alessandro precisa? []s -----Mensagem original----- De: Alessandro Fernandes ><> [mailto:[EMAIL PROTECTED] Enviada em: quinta-feira, 28 de outubro de 2004 13:38 Para: [EMAIL PROTECTED] Assunto: [delphi-br] Testar se impressora esta on line no windows XP Colegas Gostaria de saber como testar se uma impressora ligada à porta LPT1 esta on line. A rotina abaixo não funciona no windows XP. Da um erro de violação de acesso. While not PrinterOnline() do begin MsgBox('Verifique a Impressora!','ATENÇÃO'); end; Function PrinterOnLine : Boolean; Const PrnStInt : Byte = $17; StRq : Byte = $02; PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. } Var nResult : byte; Begin (* PrinterOnLine*) Asm mov ah,StRq; mov dx,PrnNum; Int $17; <===== o erro ocorre aqui. mov nResult,ah; end; PrinterOnLine := (nResult and $80) = $80; End; Obrigado, _______________________________ Alessandro Cunha Fernandes ><> SoftTI - Software e Consultoria em TI [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004 -- <<<<< 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] Yahoo! Grupos, um serviço oferecido por: ------------------------------------------------------------------------------ Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] 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