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

ou

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


p.586