quarta-feira, 21 de abril de 2021
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:
[814] ítens, entre artigos, funções e documentos.
Pesquisa Rápida:
Últimos 3 acessos:
Alexandre Neves 02/06/2020 01:23:26 170 acesso(s) uwpmluda 02/06/2020 01:21:29 34 acesso(s) Addy Magalhães Cunha 02/06/2020 01:14:12 64 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..: 4072 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 Checando se a impressora default suporta impressão colorida - 19/07/2011 22:06:46 Checando se a impressora default é matricial - 19/07/2011 22:05:26 Verificando o Status da Impressora via API do Windows - 19/07/2011 21:54:46
47 pessoa(s) on-line neste site.