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