daniel.hoch Novato

Registrado: Terça-Feira, 22 de Julho de 2014 Mensagens: 1
|
Enviada: Ter Jul 22, 2014 5:43 pm Assunto: Verificar impressora ONLINE |
|
|
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; |
|