Buenas ...
Adaptando a função que o nosso amigo Rubem Nascimento enviou:
procedure TFrmPrincipal.AntiCopia(Sender: TObject; Var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
ClipBoard.Clear
else
Exit;
Done := True;
end;
Na cláusula Uses do form principal deve-se colocar a referência: ClipBrd.
No create do form vc coloca: Application.OnIdle := AntiCopia;
Pronto, mais um usuário extremamente feliz!!!
Rodrigo de Moura
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Murillo Proença
Enviada em: quarta-feira, 25 de abril de 2007 11:49
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Bloquear ALT+Print Screen
Bom dia galera,
alguém sabe se existe a possibilidade de bloquear o conjunto de teclas
que joga a imagem da tela ativa no windows para a área de
transferência? ALT+Print Screen.
É que tenho um cliente que acha que suas informações são tão
importantes que o usuário só pode olhar mas sem poder imprimir. Oh
dureza viu!
Abraço a todos
Murillo Proença
[As partes desta mensagem que não continham texto foram removidas]
