travar teclado e mouse no windows xp

Delphi

18/06/2005

caros amigos preciso travar o teclado e o mouse no windows xp,

ja peguei varias funcoes , so que nenhum delas funciona no xp

as que peguei funciona no win98, no xp ainda nao consegui funcionar,


preciso dessa função devido o tef que nao permite deixar o usuario teclar ou mesmo movimentar o mouse durante a transação de tef.

se alguem tiver alguma dica ou sugestao, estou precisando com urgencia

valeu


Fernando

Fernando

Curtidas 0

Respostas

Aldus

Aldus

18/06/2005

Olá Marcelo, estava a procura de outras informações e me deparei com sua pergunta. Você já usou a função BlockInput indicada pelo amigo Aroldo?

Eu usei com Win98 e funcionou corretamente.

Se não usou tente assim:

function BlockInput(ABlockInput: boolean): Boolean; stdcall; external ´USER32.DLL´;


Depois use BlockInput(True) para bloquear e BlockInput(False) para desbloquear.

Espero tê-lo ajudado

Mario


GOSTEI 0
Sanses

Sanses

18/06/2005

Olá

Funciona com XP tambem, mas se o usuário apertar CTRL+ALT+DEL ele destrava.


[]´s
Sanses


GOSTEI 0
Beppe

Beppe

18/06/2005

Ctrl+Alt+Del: http://forum.clubedelphi.net/viewtopic.php?t=61668


GOSTEI 0
Sanses

Sanses

18/06/2005

Olá

Essa dica é boa para desabilitar o gerenciador de tarefas, mas neste caso(windows XP) só desabilita o gerenciador mesmo. Se as referidas teclas forem pressionadas, a função de travamento de mouse e teclado perderá efeito da mesma forma.

[]´s
Sanses


GOSTEI 0
Beppe

Beppe

18/06/2005

Não é possível ´escutar´ a um Ctrl+Alt+Del, a não ser que o explorer seja derrubado.

if not RegisterHotKey(Handle, GlobalAddAtom(´CtrlAltDel´), MOD_ALT + MOD_CONTROL, VK_DELETE) then
  ShowMessage(SysErrorMessage(GetLastError));



GOSTEI 0
Marco Salles

Marco Salles

18/06/2005

Olá Essa dica é boa para desabilitar o gerenciador de tarefas, mas neste caso(windows XP) só desabilita o gerenciador mesmo. Se as referidas teclas forem pressionadas, a função de travamento de mouse e teclado perderá efeito da mesma forma.


[b:3e02aab752]Comigo aconteceu a mesma coisa....[/b:3e02aab752] Não consigue abrir o Gerenciador de tarefas mas houve o destravamento etc... :cry: :cry:

Não é possível ´escutar´ a um Ctrl+Alt+Del, a não ser que o explorer seja derrubado. Código: if not RegisterHotKey(Handle, GlobalAddAtom(´CtrlAltDel´), MOD_ALT + MOD_CONTROL, VK_DELETE) then ShowMessage(SysErrorMessage(GetLastError));


Não entendi.. Esse código coloca aonde :cry: :cry: :cry:


GOSTEI 0
Paullsoftware

Paullsoftware

18/06/2005

e se colocarmos um código dentro de um timer com intervalo de 1 misemido de segundos...
dentro dele apenas vericamos se a variável [b:f61b8e06a5]BlockInput(...)[/b:f61b8e06a5] está True, no caso de negativo automaticamente passamos ela pra true...
if Not BlockInput then
 BlockInput := True
  else
    BlockInput := True;


será que não resolveria... :?:


GOSTEI 0
Beppe

Beppe

18/06/2005

Macro, pode colocar o código onde quiser, ele testa se é possível registrar as teclas de atalho Ctrl+Alt+Del. Mas neste caso não funciona.

A idéia de colocar a cada 1ms pode até funcionar, embora segundo a lei de Murphy, pode ocorrer um evento de entrada neste intervalo.

Outra saída seria cortar o problema na fonte, tratando o evento Application.OnMessage, mas outros programas continuariam recebendo eventos.


GOSTEI 0
Marco Salles

Marco Salles

18/06/2005

Nun consigo ver o efeito prático da instrução

if not RegisterHotKey(Handle, GlobalAddAtom(´CtrlAltDel´), MOD_ALT + MOD_CONTROL, VK_DELETE) then ShowMessage(SysErrorMessage(GetLastError));


Não é possível ´escutar´ a um Ctrl+Alt+Del, a não ser que o explorer seja derrubado.


Sim , beppe , parece não ser possível , mas infelismente
Se as referidas teclas forem pressionadas, a função de travamento de mouse e teclado perderá efeito da mesma form

Eu to testando aqui e de fato isto ocorre... Voce testou ai :?: :?: :?:

Quer dizer , parece que ainda , não atende a necessidade do Fernando
preciso dessa função devido o tef que nao permite deixar o usuario teclar ou mesmo movimentar o mouse durante a transação de tef.



GOSTEI 0
Marcoslondrina

Marcoslondrina

18/06/2005

O (CTRL + ALT + DEL) não deve ser bloqueado, mesmo porque são efetuados testes pela homologadora simulando o pressionamento, pelos menos foi o que me passaram por telefone.


GOSTEI 0
Marco Salles

Marco Salles

18/06/2005

efetuados testes pela homologadora


Que o que :?: :?: :?: :?: :cry: :cry: :cry:


GOSTEI 0
Kapak

Kapak

18/06/2005

Colegas, certa vez lí num artigo da Microsoft que em sistemas NT a combinação Ctrl+Alt+Del passa pelo kernel antes de passar pela fila de msgs do Windows. Esse artigo explica que isso foi feito para evitar que um programa mal intencionado intercepte essa combinação e apresente uma tela para pedir a senha do sistema por exemplo.
Portanto na minha opinião acho um pouco difícil alguém conseguir interceptar o Ctrl+Alt+Del em sistemas NT.


GOSTEI 0
POSTAR