297 - Simular Print Screen
Uma coisa que pode ser muito útil em suporte a distância, ou até mesmo pra
outros objetivos, é a realização de um "print-scrren" coisa que muitas vezes um
usuário não dá conta de realizar e fica complicado, de certa maneira, explicar
por telefone. Por este motivo criamos uma rotininha que simula a tecla
PrintScreen. A baixo a rotina de como realizar tal processo:
procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_PRINT, 0, 0, 0);
keybd_event(VK_PRINT, 0, KEYEVENT_KEYUP, 0);
end;
Obs: Tentei a dica sitada logo acima e não deu certo!!! Procurei ajuda no Help
do delphi e encontrei essa logo abaixo e funcionaou (estou usando PENTIUM III
128 Ram, Win98 e Delphi 4)
Simular Print Screen 2
keybd_event(vk_snapshot,0, 0, 0); {Tela Toda}
keybd_event(vk_snapshot,1, 0, 0); {Janela Ativa}
----- Original Message -----
From: Fabio Dantas
To: delphi-br@yahoogrupos.com.br
Sent: Monday, September 25, 2006 1:18 PM
Subject: RES: [delphi-br] Print Screen
Galera como eu dou um print screen na tela em delphi?
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Fabio Dantas
Enviada em: segunda-feira, 25 de setembro de 2006 07:41
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Print Screen
Pessoal eu tenho um sistema que roda de madrugada aqui na empresa nas
portarias. Algumas noites os vigias falam que deu problema no sistema.
Eu estava pensando em fazer um programa delphi que desse print screen de
10 em 10 minutos para que eu possa ver e saber o que está acontecendo.
Já vi comentários na lista de alguns de vocês que fizeram algo parecido.
Vocês teriam exemplos de como fazer isso ?
Abraço Galera Valew
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
__________ NOD32 1.1773 (20060925) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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]
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
