Wie kann ich Mausklicks auf einem fremden Fenster verhindern ??

[kuba]

Hallo,

ich möchte mit meiner Anwendung verhindern, dass in einem anderen Programm die Bedienung per Mauklick möglich ist.
In meiner Anwendung ist bereits eine DLL enthalten, die auch Mausklicks filtern kann, diese basiert auf einem Code von Swiss Delphi Center.

Ich hatte mir so vorgestellt, dass die Mausevents nur herausgefiltert werden, wenn die Maus über dem Fenster steht. Dazu ermittle ich die Cursorposition mit folgendem Code:

Delphi-Quellcode:

function IsMouseWithinOurRange: Boolean;
  var
    buffer: array [0..255] of Char;
    p: TPoint;
  begin
    Result := False;
    GetCursorPos(p);
    GetClassName(WindowFromPoint(p), buffer, length(buffer));
    if string(buffer)='Start' then Result:=true;
  end;

Wie kann ich das zusammen verwenden ? Ich möchte die Funktion zur Ermittlunng der Cursorposition irgendwie verwenden um die Filterung der Maustastenevents zu aktivieren bzw. zu deaktivieren. Ich rätsel schon eine ganze Weile ...

KUBA

[kuba]

Hat sich schon erledigt, zu blöd aber auch. Ich hab die Funktion einfach in die DLL eingebaut und die Mausevents damit abgefangen. Cool ;-)

Delphi-Quellcode:

if IsMouseWithinOurRange then
        begin
        case TPMsg(lParam)^.message of
          WM_LBUTTONUP:
            Kill := True;
          WM_LBUTTONDOWN:
            Kill := True;
        end;
        end;

Ich hab echt schon so einige Stunden damit verbracht, aber kaum fragt man, schon kommt die passende Antwort :-D

KUBA

[hathor]

//Cursor einsperren
ClipCursor(self); //Beispiel
//Cursor freigeben
ClipCursor(nil);

[kuba]

Zitat:

Zitat von hathor (Beitrag 1313886)

//Cursor einsperren
ClipCursor(self); //Beispiel
//Cursor freigeben
ClipCursor(nil);

Danke für den Tip, aber ich hab es so wie oben beschrieben hinbekommen. Ich hab mich so viele Stunden damit beschäftigt und nur Müll gemacht. Nachdem ich mein Problem hier gepostet habe hat es nur 5 Minuten gedauert und es ging sofort.

Der Hook bewirkt, mit der von mir eingefügten Funktion, daß die Linke Maustaste auf dem Windows Startbutton herausgefiltert wird.

Das Problem verfolgte mich ehrlich gesagt schon seit einigen Jahren ...


KUBA :thumb:

[kuba]

Zitat:

Zitat von hathor (Beitrag 1313886)

//Cursor einsperren
ClipCursor(self); //Beispiel
//Cursor freigeben
ClipCursor(nil);

Hallo,

es hat doch noch nicht ganz so funktioniert, aber dies war der entscheidene Tip, Danke !!

KUBA

[kuba]

Irgend etwas stimmt noch nicht, mit 32 Bit Windows funktioniert es, aber nicht mit 64 Bit Windows.
:oops:

[Luckie]

Ist die Hook DLL auch 64-Bit?

[kuba]

Zitat:

Zitat von Luckie (Beitrag 1313902)

Ist die Hook DLL auch 64-Bit?

Ja sicher, ich hab mit 4 virtuellen Maschinen getestet, 2 x 32 Bit und 2 x 64 Bit. Jedesmal das gleiche Ergebnis, mit 32 Bit funktioniert es einwandfrei, mit 64 Bit funktioniert lediglich der "Beep", der mir sagt dass die Maus über dem Fenster liegt. Das ist schon sehr seltsam ...

Ich habe bisher nur mit Windows 10 getestet ....

KUBA

[hoika]

Hallo,
die Frage war nicht das Betriebsssystem,
sondern ob du dein DLL als 64-Bit-DLL kompiliert hast.


Heiko

[kuba]

Zitat:

Zitat von hoika (Beitrag 1313907)

Hallo,
die Frage war nicht das Betriebsssystem,
sondern ob du dein DLL als 64-Bit-DLL kompiliert hast.


Heiko

Ja, habe ich und getestet auf 4 PC's, die 32 Bit Version auf einem 32 Bit Windows und die 64 Bit Version auf einem 64 Bit Windows. Warum funktioniert es nicht mit den 64-Bit Versionen ? Verstehe ich nicht ...

KUBA

[Luckie]

Welche 64-Bit Windows Version? Ich könnte mir vorstellen, dass ab Windows 8 Microsoft den Window-Manager wegen der Apps und Kacheln erheblich geändert hat.

[kuba]

Ich teste mit Windows 10. Inzwischen habe ich herausgefunden, daß es vermutlich mit dem Betrieb auf einer virtuellen Maschine zusammenhängt. Auf 2 "echten" PC's funktioniert alles wie gewünscht. Ich poste mal was ich da gebastelt habe. Mit der gleichen Methode wollte ich in der DLL von SwissDelphiCenter die Mausklicks ausfiltern, geht auch, aber nur in einer 32 Bit virtuellen Maschine.

KUBA

PS: DLL und EXE im Anhang sind für 64-Bit ...