Buscar por:

Simulando print screen

Código

{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)}

ou

keybd_event(vk_snapshot,0, 0, 0); {Tela Toda} 

keybd_event(vk_snapshot,1, 0, 0); {Janela Ativa}