Maus sperren während Tastatureingabe

[blackdrake]

Hallo.

In einem kleinen Testprogramm habe ich schon einen kleinen Fortschritt erwirkt.

Wenn ein Button "Maus 3 Sekunden sperren" geklickt wird, wird die Maus innerhalb des Forms für 3 Sekunden gesperrt.

Folgendes fehlt jetzt noch:
1. Der Hook muss die Maus Systemweit sperren
2. Ich muss noch herausfinden, wann die Tastatur zuletzt bedient wurde (aber NUR die Tastatur)

Delphi-Quellcode:

var
  HookID: THandle;

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
var
  szClassName: array[0..255] of Char;
begin
  case nCode < 0 of
    True:
      Result := CallNextHookEx(HookID, nCode, wParam, lParam)
      else
        case wParam of
          // Linke Maustaste sperren
          WM_LBUTTONDOWN,
          WM_LBUTTONUP,
          WM_LBUTTONDBLCLK:
            begin
              GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
              Result := HC_SKIP
            end
            else
              Result := CallNextHookEx(HookID, nCode, wParam, lParam);
        end;
  end;
end;

procedure DestroyHook;
begin
  if HookID <> 0 then
  begin
    UnHookWindowsHookEx(HookID);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DestroyHook;
end;

procedure TForm1.sperre_maus_fuer_3_sekundenClick(Sender: TObject);
begin
  // TODO: SYSTEM-GLOBAL DEN HOOK FÜR WM_MOUSE SETZEN!
  HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
  timer1.enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  DestroyHook;
end;

Gruß
blackdrake