quarta-feira, 30 de outubro de 2024
Home
Artigos
Banco de Dados
Access
Firebird
Microsoft SQL Server
MySql
Oracle
Sybase
BI
QlikView
Dicas de Internet
e-business
Hardware
Multimídia
Flash
Programação
.NET/ASP.NET
.NET/C#
.NET/Framework
.NET/VB.NET
ASP
C/C++
Clipper
Cobol
CSS
Delphi
Java
Javascript
JSP
Palm
Perl
PHP
Shell
Visual Basic
WAP
Redes
Segurança
Servidores E-mail
Servidores Web
Apache
Microsoft IIS
Sistemas Operacionais
AIX
DOS
HPUX
Linux
Palm OS
Solaris
True64
Windows 7
Windows 9X
Windows NT
Windows Vista
Windows XP
Software Review
PC
Storages
Veritas VM
Conteúdo atual do site:
[807] ítens, entre artigos, funções e documentos.
Pesquisa Rápida:
Últimos 3 acessos:
Alexandre Neves 03/03/2015 11:08:01 167 acesso(s) alexandre neves 03/03/2015 11:06:42 1 acesso(s) Marcelo Torres 21/01/2015 15:24:53 61 acesso(s)
Opções:
Listagem completa Listagem simples
Ranking Colaboradores:
Adenilton Rodrigues - [304] Alexandre Neves - [61] Douglas Freire - [54] Marcelo Giovanni - [53] Marcelo Torres - [43] Angelita Bernardes - [31] Addy Magalhães Cunha - [28] Manuel Fraguas - [24] Ludmila Valadares - [20] Marcelo Capelo - [18]
Função para testar se a impressora está OK.
function PrinterOK(Lpt: Word): Boolean; const PrnStInt : Byte = $17; StRq : Byte = $02; var nResult : Byte; begin asm mov ah,StRq; mov dx,Lpt; Int $17; mov nResult,ah; end; Result := (nResult and $80) = $80; end; Modo de utilização: if PrinterOK(0) then ShowMessage('Impressora OK') else ShowMessage('Impressora sem papel ou desligada'); O parâmetro da função equivale ao número da porta da impressora. 0- LPT1 1- LPT2 e assim por diante... Não funciona em Windows NT, 2000 ou XP (infelizmente). Quebra-Linha Colaborador..: Marcelo Torres Categoria(s).: Delphi; Versão.......: 1.50 Data.........: 28/02/2005 23:26:48 Visualizado..: 4102 vezes Fonte........: Marcelo Torres
Marcelo Torres
Últimos Artigos deste colaborador Usando a função MessageBox - 16/06/2006 15:47:15 Obter conteúdo de janela popup - 13/06/2006 09:03:26 Confirmação antes de processar formulário - 20/04/2006 10:21:44
Últimos Artigos desta categoria Usando a função MessageBox - 16/06/2006 15:47:15 Atualização de Sistemas - 06/10/2005 01:07:16 CRÍTICA DE DATAS NO OBJETO EDIT SEM MENSAGEM DE ERRO DO DELPHI - 17/03/2006 14:58:31
2 pessoa(s) on-line neste site.