Travar Teclado e Mouse em determinado horário

Delphi

04/10/2003

Quero desenvolver um aplicação que via rodar iconizada, com a finalidade de em um determinado periodo do dia travar o teclado e o mouse do micro. Como fazer para travar o teclado e o mouse?

Grato,

Mardônio


Mardônio

Mardônio

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

04/10/2003

Colega,

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


  BlockInput(True);  //--> Bloqueia 
  Sleep(3000); // Três segundos
  BlockInput(False); //--> Desbloqueia


Lembrando que Ctrl + Alt + Del anula imediatamente o bloqueio.


GOSTEI 0
Lhsrocha

Lhsrocha

04/10/2003

Desculpe-me a intromissão , mas eu gostaria de saber : esta user32 , além se ser descrita ao lado da fç , ue devo colocála na uses...?

Poderia dar mais detalhes sobre o assunto?!?!?!?! :lol: :lol:

muito obrigado!!!!


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

04/10/2003

Colega,

User32.DLL faz parte do sistema operacional W32. Basta declarar a função da forma exemplificada acima para poder utilizar. Mais detalhes:

var Form1: TForm1;
function BlockInput(ABlockInput: boolean): Boolean; stdcall;
external ´USER32.DLL´;
.
.
.
implementation
.
.
.



GOSTEI 0
Mardônio

Mardônio

04/10/2003

Haroldo, Muito obrigado!!!

Mas tem como travar o CTRL+ALT+DEL também?

Mardônio


GOSTEI 0
POSTAR