ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Verificar impressora ONLINE

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
daniel.hoch
Novato
Novato


Registrado: Terça-Feira, 22 de Julho de 2014
Mensagens: 1

MensagemEnviada: Ter Jul 22, 2014 5:43 pm    Assunto: Verificar impressora ONLINE Responder com Citação

boa tarde
Estou com um probleminha para verificar se a impressora esta ligada(online/offline), ja utilizei o seguinte codigo, mas mesmo com a impressora ligada ou desligada o retorno é sempre zero, alguém pode me ajudar!

function VerImpressoraONLINE: Cardinal;
var
hPrinter : THandle;
pInfo : PPrinterInfo2;
bytesNeeded : DWORD;
begin
hprinter := GetCurrentPrinterHandle;
try
Winspool.GetPrinter( hPrinter, 2, Nil, 0, @bytesNeeded );
pInfo := AllocMem( bytesNeeded );
try
Winspool.GetPrinter( hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded );
Result := pInfo^.Status;
finally
FreeMem( pInfo );
end;
finally
ClosePrinter( hPrinter );
end;
end;
Código:
Código:
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB