RSS

VERIFICAR SE A IMPRESSORA ESTá ATIVA?

28 nov
 

// Verifica se a impressora está ativa ou não.
function IsPrinter : Boolean;
Const
PrnStInt  : Byte = $17;
StRq       : Byte = $02;
PrnNum  : Word = 0;  { 0 para LPT1, 1 para LPT2, etc. }
var
nResult : byte;
begin
asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult,ah;
end;
IsPrinter := (nResult and $80) = $80;
end;
Anúncios
 
Deixe um comentário

Publicado por em 28/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: