BlockInput function

[geisi]

Ich habe von einem Freund diese zwei Zeilen bekommen, um so die Eingabegeräte(maus, tastatur, ...) zu sperren.
Wie verwende ich ihn?

Delphi-Quellcode:

function TForm1.Blockinput(fBlock: boolean): boolean; stdcall;
  external 'user32.dll';

Bitte helft mir

[Meflin]

füge das einfach nach der implementation in deinen quelltext ein. dann kannst du das ganze über
BlockInput(true) aktivieren und mit
BlockInput(false) deaktivieren!

[geisi]

Habe ich gemacht, aber ich bekomme immer die Fehlermeldung:

"Der Prozedureinsprungpunkt 'TForm1.Blockinput' wurde in der DLL 'user32.dll' nicht gefunden"

was kann ich da machen?

[toms]

Zitat:

Function Information

Import library User32.lib
Minimum operating systems Windows 98, Windows 2000

[Christian Seehase]

Moin Geisi,

Du solltest das nicht als Methode von TForm1 deklarieren, sondern als normale Funktion.

[Tubos]

Habe den Code auch probiert (habe win2k) und der Fehler kommt trotzdem, egal wie ich das deklariere.

[Christian Seehase]

Moin Zusammen,

die Deklaration enthält zwei Fehler:

1. Es wurde als Methode von TForm1 deklariert. Dadurch wird ein, unsichtbarer, Parameter deklariert (self), so dass der Aufruf schon fehlschlagen dürfte.
2. Wenn man darauf verzichtet die Option name mit anzugeben, muss schon der Funktionsname exakt so geschrieben werden wie die Funktion in der DLL deklariert wurde, in diesem Falle also BlockInput statt Blockinput.
   Gross- / Kleinschreibung ist exakt einzuhalten.

[Tubos]

ja, so geht es...thx!