Glob. Hook für WM_WINDOWPOSCHANGED bzw WM_WINDOWPOSCHANGING

[s.h.a.r.k]

Problem wurde gelöst! Ich habe mir einfach Windows.pas umgeschaut und siehe da, es gibt einen Zeiger auf ein Struct PCWPStruct mit den ich mein Problem lösen konnte. Hier die Hook-Procedure:

Delphi-Quellcode:

function TfrmDarkOverlay.HookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult; stdcall;
var
  P: PCWPStruct;
begin
  case nCode < HC_ACTION of
    True:
      Result := CallNextHookEx(FHookHandle, nCode, wParam, lParam);
  else
    if (lParam <> 0) then
    begin
      P := PCWPStruct(lParam);
      if (P.message = WM_WINDOWPOSCHANGING) then Memo1.Lines.Add('P.message = WM_WINDOWPOSCHANGING');
    end;

    Result := CallNextHookEx(FHookHandle, nCode, wParam, lParam);
  end;
end;