WM_WINDOWPOSCHANGING abfangen

[MisterNiceGuy]

öhhm welchen Code?

[Die Muhkuh]

Den, welchen Volker geposted hat ;)

[MisterNiceGuy]

Gute Idee :wall: :mrgreen:

[MisterNiceGuy]

Oh Gott ich bekomme es nicht hin!!! Fehlt da noch irgendwas wenn ich die Function samt Variable einfach in das Unitfenster der dll kopiere? Ich bekomm auf jedefall ne Fehlermeldung... :(

[Flocke]

Etwa so sollte es aussehen (alles ungetestet).

Delphi-Quellcode:

library SuperMsgHook;

uses
  Windows,
  Messages,
  SysUtils,
  Classes;

type
  TMessageHookCallback = procedure(const Msg: Windows.TMsg) of object;

var
  HookHandle: Cardinal;
  CallbackProc: TMessageHookCallback;

function GetMsgProc(code: integer; wParam: WPARAM; lParam: LPARAM): LResult;
  stdcall;
begin
  if (code = HC_ACTION) and Assigned(CallbackProc) then
    if Windows.PMsg(lParam)^.message = WM_WINDOWPOSCHANGING then
      CallbackProc(Windows.PMsg(lParam)^);

  Result := CallNextHookEx(HookHandle, Code, wParam, lParam);
end;

procedure DisableMessageHook;
  stdcall;
begin
  CallbackProc := nil;

  if HookHandle <> 0 then
  begin
    UnhookWindowsHookEx(HookHandle);
    HookHandle := 0;
  end;
end;

procedure EnableMessageHook(ACallbackProc: TMessageHookCallback);
  stdcall;
begin
  DisableMessageHook;

  CallbackProc := ACallbackProc;
  HookHandle := SetWindowsHookEx(WH_GETMESSAGE, GetMsgProc, hInstance, 0);
  if HookHandle = 0 then
    RaiseLastOsError;
end;

exports
  GetMsgProc,
  EnableMessageHook,
  DisableMessageHook;

end.

... und dann in deinem Hauptprogramm:

Delphi-Quellcode:

type
  TMessageHookCallback = procedure(const Msg: Windows.TMsg) of object;

procedure DisableMessageHook; stdcall; external 'SuperMsgHook.dll';
procedure EnableMessageHook(ACallbackProc: TMessageHookCallback); stdcall; external 'SuperMsgHook.dll';

Du brauchst dann eine selbstgeschriebene Methode, die die Informationen entgegennimmt. Die übergibst du an "EnableMessageHook".

[MisterNiceGuy]

Vielen Dank für die Hilfe, ich hatte keine Uses drin... :wall:

Wie erstelle ich daraus nun eine Dll? Sie wird nicht automatisch generiert...

Edit: Ahh habs schon hinbekommen ;)

Edit2: Waaa aber jetzt kann ich mit

Zitat:

Du brauchst dann eine selbstgeschriebene Methode, die die Informationen entgegennimmt. Die übergibst du an "EnableMessageHook".

nichts anfangen...

[Flocke]

Als ob ich's gewusst hätte :twisted:

Die DLL compiliert aber richtig, oder?

Dann weiter so in deinem Hauptprogramm:

Delphi-Quellcode:

// das hatten wir schon
type
  TMessageHookCallback = procedure(const Msg: Windows.TMsg) of object;

procedure DisableMessageHook; stdcall; external 'SuperMsgHook.dll';
procedure EnableMessageHook(ACallbackProc: TMessageHookCallback); stdcall; external 'SuperMsgHook.dll';

// Ab jetzt neu, Methode von Form1, also von deinem Hauptformular.
// Kann aber auch eine Methode einer beliebigen Klasse sein
procedure Form1.OnMessageHook(const Msg: Windows.TMsg);
begin
  // Hier stehen jetzt in Msg alle Parameter der Meldung
  // Msg.hwnd: HWND;       das Fensterhandle
  // Msg.message: UINT;    WM_WINDOWPOSCHANGING
  // Msg.wParam: WPARAM;   wParam zu der Meldung
  // Msg.lParam: LPARAM;   lParam zu der Meldung
  // Msg.time: DWORD;      Zeitpunkt der Nachricht
  // Msg.pt: TPoint;       Mauszeigerstelle zum ang. Zeitpunkt

end;

procedure Form1.FormShow(Sender: TObject);
begin
  // Hier wird der Hook eingeschaltet
  EnableMessageHook(OnMessageHook);
end;

procedure Form1.FormHide(Sender: TObject);
begin
  // ... und hier wieder ausgeschaltet
  DisableMessageHook;
end;

In OnMessageHook kannst du jetzt die Nachrichten verarbeiten. Du solltest allerdings nicht zu viel machen, da es sonst auf die Performance geht.

[Flocke]

... wobei mir heute beim Aufwachen eingefallen ist, dass es so ggf. nicht funktioniert.

Die Hook-DLL wird ja per Injection in jeden Prozess eingeschleust, in einem anderen Prozess funktioniert aber der Methoden-Zeiger nicht :gruebel:
Oder wird nur ein Stub in den fremden Prozess geschrieben, der dann den Hook in meinem Prozesskontext aufruft :gruebel:
Ich habe heute leider keine Zeit mehr mich weiter damit zu befassen, poste mal ob's funktioniert - insbesondere ob's lokal (nur dein Prozess) oder global funktioniert.

[MisterNiceGuy]

Hi es funktioniert leider NICHT :( Weder lokal noch global, die Procedure onMessageHook wird garnicht aufgerufen...

[Flocke]

Ich hab's hier jetzt mal getestet - der Hook wird zwar aufgerufen, aber es kommt *NIE* WM_WINDOWPOSCHANGING an. Erschwerend kommt hinzu, dass nur die Meldungen der eigenen Anwendung abgefangen werden und nicht die systemweiten (die Ursache dafür wird wohl die sein, die ich beim letzten Mal beschrieben habe: unterschiedliche Prozesse, unterschiedliche Adressräume).

Ich habe gerade mal in Ollis Hook-Tutorial geschaut, von dem er schon ein paar Mal geschrieben hat. Er geht da ziemlich ausführlich auf die Inter-Prozess-Kommunikation bei global Hooks ein, um die du auch nicht herumkommen wirst. Also solltest du dir dieses Tutorial mal zu Gemüte führen.

[Nachtrag]

... und natürlich erst mal den Hook finden, mit dem du WM_WINDOWPOSCHANGING abfangen kannst.