Keyboard Lock ... is it possible ???

[BobbaFet]

Hi guys,

Thanks for reading my post, what i am looking to do is this:
I want to stop windows, and all running programs from
recieing any keyboard events. now I have been thinking allot
about this and have come up with this theory:

If I could scan the Kernel for keyboard events (like Keyup,
KeyDown etc) and set a sort of handled flag for them when they occur, it should stop them from being passed onto
windows, but I have no clue on how to go about this.

Can you guys help me please ??? BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/

 

[bbegley]

I would think that if you set your form to be always on top, you would get first shot at keyboard events. I can't remember offhand how to intercept alt/ctrl/tab keys, but there's an easy way to do it. If you want to prevent the user from using the mouse, maybe you could center it on the form at the beginning of your (hopefully benevolent) process, and move it back there anytime the mouse moved.

 

[BobbaFet]

No its really just the keyboard events that I am looking
for. But thank you for your reply bbegley. BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/

 

[Svanhooft]

hi,

The method below will show how you can disable any mouse/keyboard actions:

you may assign a handler to Application.OnMessage:

Application.OnMessage := yourOnMessageHandler
where

procedure TForm1.yourOnMessageHandler(var Msg: TMsg; var Handled: Boolean);
begin
case Msg.Message of
WM_KEYFIRST..WM_KEYLAST, WM_MOUSEFIRST, WM_MOUSELAST:
Handled := True
end;
end;

Very important: you must remove a handler when your data processing is completed (or in OnDestroy event of main form)

A basic scheme of data processing:

begin
Application.OnMessage := yourOnMessageHandler;

<your long calculation>
while <...> do
begin
<your calculations>

<update a progressbar/statistic>;

Application.ProcessMessages
end;

Application.OnMessage := nil;
end;


Steph [Bigglasses]