Dicazinha mais furada!
[]s
>From: "anluizalr" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Testar a impressora
>Date: Thu, 28 Jul 2005 23:33:48 -0000
>
>Testar a Impressora
>
>Function TForm1.PrinterOnLine : 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;
>PrinterOnLine := (nResult and $80) = $80;
>end;
>
>Utilize a função assim:
>
>procedure TForm1.Button1Click(Sender: TObject);
>begin
>If not PrinterOnLine then ShowMessage('Verifique
>a Impressora!');
>end;
>
>Confira essa e outras dicas mais em www.tcsystems.com.br
>
>
_________________________________________________________________
MSN Messenger: converse com os seus amigos online.
http://messenger.msn.com.br
--
<<<<< 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
