Tastatur sperren ??

[Vader]

hallo,

ich müßte bei meinen Prog. für eine Sequenz bzw kurz die Tastatur
sperren das keine Eingaben gemacht werden können.
Jetzt hab ich das so probiert aber es funzt nicht.

Code:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
BlockInput(true); //   sperren
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
BlockInput(false);   //  entsperren
end;

er sagt beim compilieren : undefinierte Bezeichnung BlockInput,
muß ich irgeneine Variable definieren oder im use eine Apifunktion
reinschreiben


mfg vader

[Matze]

Die DP hat ne Suchfunktion.

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.dfm}

function BlockInput (fBlockInput : boolean) : DWord; stdcall; external 'user32.DLL'; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
BlockInput(true); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
BlockInput(false); 
end;

[hacker]

Hi!

Wenn ich das beispiel von Matze nehme, ist bei mir die Maus auch ausgeschaltet....wieso?


Gruss Häcki

[Stanlay Hanks]

Wahrscheinlich weil zu "Input" alle Signale von EIngabegeräten gehören

[Matze]

Achso, sorry, stimmt sperrt ja auch die Maus.

Ich hoffe, du hast den PC nicht neu gestartet.

[hacker]

Ne hab ich nicht...Task beenden geht komischerweise noch


Gruss Häcki

[Dagon]

Zitat von Irgend eine Seite im Internet:

Bemerkung: Läuft nur unter Windows 98/2000 und
späteren Versionen.
Eine Blockierung kann mit
CTRL+ALT+DEL aufgehoben werden.

[devnull]

und was würde passieren, wenn der task-manager deaktiviert wäre ? oder gilt das generell ???

[hacker]

Na das wäre wohl eine Erklärung....


Gruss Häcki

[hacker]

Wenn der Task Manager deaktiviert wäre müsstest du wohl deinen pc neu starten....


Gruss Häcki