Entwickler-Ecke :: Thema anzeigen - Procedure bei Mausklick außerhalb des Forms ausführen

n-regen - Mo 18.08.08 15:57
Titel: Procedure bei Mausklick außerhalb des Forms ausführen

Hallo!

Ich möchte, dass in einem Programm eine Procedure ausgeführt wird, sobald irgendwo ein Mausklick stattfindet (also auch außerhalb des Formulars).
Ich habe schon wegen Mouse-Hooks recherchiert und es funktioniert einfach nicht.
Meine aktuelle Grundlage ist diese Anleitung: http://www.gcf.de/papers/apihooking.txt
Ich habe den Quelltext mit Müh´ und Not zum kompilieren gebracht (der Autor ist bezüglich Deklarationen ja ziemlich schweigsam), aber "UnsereMouseFunktion" wird nie ausgeführt.

Nils

Tino - Mo 18.08.08 16:12
Titel: Re: Procedure bei Mausklick außerhalb des Forms ausführen

n-regen hat folgendes geschrieben:

der Autor ist bezüglich Deklarationen ja ziemlich schweigsam

Naja, Grundlagen wollte der Autor mit dem Tutorial wohl bewusst nicht vermitteln. ;-) Deshalb würde ich an deiner Stelle erstmal versuchen einfachere Aufgaben zu löschen bzw. Einsteiger-Tutorials vorzunehmen wenn bereits solche einfachen Dinge Probleme verursachen. Zum Beispiel der Delphi-Crashkurs [http://www.christian-stelzmann.de/artikel/crashkurs.htm].

Gruß,
Tino

n-regen - Mo 18.08.08 16:19

Das ist keineswegs - wie du vielleicht annimmst, Timo - eines meiner ersten Programme, sondern nur mein erstes, das Hooks verwendet.
Ich habe den ersten Quelltext (ich will ja nur überwachen, nicht manipulieren, also brauche ich die DLL weiter unten nicht) halbwegs verstanden und dann kopiert.
Jetzt habe ich auch herausgefunden, dass man nur FormCreate und -Destroy deklarieren und mit dem Form verknüpfen muss und die andere Funktion einfach als erstes hinschreibt.
Trotzdem funktioniert es nicht - die Funktion wird nicht aufgerufen.
Falls ihr mir dadurch besser helfen könnt - hier ist mein aktueller Quelltext:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  hMouseHook: HHOOK;

implementation

{$R *.dfm}

function UnsereMouseFunktion(nCode: integer; wparam: WPARAM; lParam: LPARAM):Integer; stdcall;
begin
 if(wParam = WM_LBUTTONDOWN) then ShowMessage('Linke Maustaste gedrückt!');
 Result := CallNextHookEx(hMouseHook, nCode, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender:TObject);
begin
 hMouseHook := SetWindowsHookEx( WH_MOUSE, UnsereMouseFunktion, 0, 0);
end;

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

end.

---Moderiert von Narses: Beiträge zusammengefasst---

Ich habe mich jetzt mit Assarbads Tutorial auseinandergesetzt und kann jetzt aus seiner DLL einen Hook einrichten.
In der DLL habe ich an der Stelle, wo man verarbeiten kann, ein "ShowMessage" hingesetzt - erfolglos.
Was mache ich falsch?

---Moderiert von Narses: Beiträge zusammengefasst---

Ich habe jetzt herausgefunden, dass die Wenn-Nachricht-Ankommt-Routine nach jedem Registrieren des Hooks 16 mal aufgerufen wird und dann in tiefes Schweigen versinkt, bis man den Hook deinstalliert und wieder installiert.
EDIT: Der Parameter nCode ist dabei jeweils 0, wparam einmal sicher 512(=MOUSEMOVE) und 15 mal irgendwas (manchmal auch 512) und lparam irgendwas rund um 1200000.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!