 |
|
 |
|
 |
53 - BLOQUER LE CLAVIER ET LA SOURIE
|
|
|
|
PRÉSENTATION :
Bloquer le clavier et la souris
NOTES :
Attention, il faut prévoir un déblocage dans le temps ! Sinon, il faut fermer l'application avec Alt-Ctrl-Sup.
CODE :
Unit Unit1;
//
// Sujet : Blocage du clavier et de la souris
//
// Par Nono40 : http://nono40.developpez.com http://nono40.fr.st
// mailTo:nono40@fr.st
//
// Le 30/04/2003
//
Interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Spin;
Type
TForm1 = Class(TForm)
Button1: TButton;
SpinEdit1: TSpinEdit;
Label1: TLabel;
Timer1: TTimer;
Procedure Button1Click(Sender: TObject);
Procedure Timer1Timer(Sender: TObject);
Private
{ Déclarations privées }
Public
{ Déclarations publiques }
End;
Var
Form1: TForm1;
Implementation
{$R *.dfm}
Function BlockInput(BlockIt:Bool):Bool;StdCall;External 'USER32.DLL' Name 'BlockInput';
Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Timer1.Enabled:=False;
BlockInput(False);
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Timer1.Interval := SpinEdit1.Value * 1000;
Timer1.Enabled := True;
BlockInput(True);
End;
end.
|
| |
 |
|
 |
Les sources présentées sur cette page sont libres de droits,
et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation
constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©
2003 Bruno Guérangé. Aucune reproduction,
même partielle, ne peut être faite de ce site et de l'ensemble de son contenu :
textes, documents, images, etc sans l'autorisation expresse de l'auteur.
Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E
de dommages et intérêts.
Cette page est déposée à la
SACD.
|
