|
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-screen" 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: Tentamos a dica citada logo acima e não deu certo!!! Pela ajuda do delphi
localizamos esta logo abaixo e funcionou:
Simular Print Screen 2
keybd_event(vk_snapshot,0, 0, 0);
{Tela Toda}
keybd_event(vk_snapshot,1, 0, 0); {Janela Ativa}
|