In Hook auslösender Prozess ermitteln

[hesch21]

Erst mal Danke für Eure Hilfe. Die Lösung mit dem GetForeGroundWindow funktioniert da ich ja noch neben dem Dienst ein Miniprogramm am laufen habe, welches jeweils vom Dienst auf den gerade aktuellen Desktop geschmissen wird.

Nun bin ich aber bei meiner Rumspielerei mit den Hooks noch auf ein anderes Problem gestossen. Beim Maus-Hook gibt es in der Struktur den Wert wHitTestCode und der müsste mit einem Wert gemäss WM_NCHITTEST bestückt werden. Bei mir kommt aber immer nur 0 zurück. Habt Ihr eine Ahnung, was ich falsch mache? Hier der Code:

Delphi-Quellcode:

type
 PMSDLLHookInfo = ^TMSDLLHookInfo;
 tagMSDLLHOOKSTRUCT = packed record
    POINT       : TPoint;
    Handle      : DWORD;
    wHitTestCode: integer;
    dwExtraInfo : DWORD;
 end;
 TMSDLLHookInfo = tagMSDLLHOOKSTRUCT;

var HookMaus          : HHook;
var hApp              : HWND;

function MouseHookProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
const WM_XBUTTONDOWN   = $020B;
const WM_XBUTTONUP     = $020C;
const WM_XBUTTONDBLCLK = $020D;
var Wnd     : HWND;
var PID     : DWord;
var TID     : DWord;
var mVKCode : integer;
var mUpDown : integer;
var XKord   : integer;
var YKord   : integer;
var woHit   : string;
var wasHit  : string;

begin
  if (Code = HC_ACTION) and (wParam <> WM_MOUSEMOVE) and (wParam <> WM_NCMOUSEMOVE) then
     begin
     Wnd     := GetForeGroundWindow;
     TID     := GetWindowThreadProcessId(Wnd, PID);
     MUpDown := wParam;
     case wParam of
          WM_LBUTTONDBLCLK : WasHit := 'L-ButtonDBLClick';
          WM_LBUTTONDOWN   : WasHit := 'L-ButtonDown';
          WM_LBUTTONUP     : WasHit := 'L-ButtonUp';
          WM_MBUTTONDBLCLK : WasHit := 'M-ButtonDBLClick';
          WM_MBUTTONDOWN   : WasHit := 'M ButtonDown';
          WM_MBUTTONUP     : WasHit := 'M-ButtonUp';
          WM_RBUTTONDBLCLK : WasHit := 'R-ButtonDBLClick';
          WM_RBUTTONDOWN   : WasHit := 'R-ButtonDown';
          WM_RBUTTONUP     : WasHit := 'R-ButtonUp';
          WM_XBUTTONDBLCLK : WasHit := 'X-ButtonDBLClick';
          WM_XBUTTONDOWN   : WasHit := 'X-ButtonDown';
          WM_XBUTTONUP     : WasHit := 'X-ButtonUp';
          WM_MOUSEHOVER    : WasHit := 'MouseHover';
          WM_MOUSELEAVE    : WasHit := 'MouseLeave';
          WM_MOUSEMOVE     : WasHit := 'MouseMove';
          WM_MOUSEWHEEL    : WasHit := 'MouseWheel';
          WM_MOUSEACTIVATE : WasHit := 'MouseActivate';
          WM_NCLBUTTONDOWN : WasHit := 'NCL-L-ButtonDown';
     else
          WasHit := IntToStr(wparam);
     end;
     XKord   := PMSDLLHookInfo(lParam).POINT.X;
     YKord   := PMSDLLHookInfo(lParam).POINT.Y;
     mVKCode := PMSDLLHookInfo(lParam).wHitTestCode;
     case mVKCode of
          HTBORDER         : WoHit := 'Border';
          HTBOTTOM         : WoHit := 'Bottom';
          HTBOTTOMLEFT     : WoHit := 'BottomLeft';
          HTBOTTOMRIGHT    : WoHit := 'BottomRight';
          HTCAPTION        : WoHit := 'Caption';
          HTCLIENT         : WoHit := 'Client';
          HTCLOSE          : WoHit := 'Close';
          HTERROR          : WoHit := 'Error';
          HTHELP           : WoHit := 'Help';
          HTHSCROLL        : WoHit := 'Scroll';
          HTLEFT           : WoHit := 'Left';
          HTMENU           : WoHit := 'Menu';
          HTREDUCE         : WoHit := 'Reduce';
          HTNOWHERE        : WoHit := 'Nowhere';
          HTRIGHT          : WoHit := 'Right';
          HTSIZE           : WoHit := 'Size';
          HTSYSMENU        : WoHit := 'SysMenu';
          HTTOP            : WoHit := 'Top';
          HTTOPLEFT        : WoHit := 'TopLeft';
          HTTOPRIGHT       : WoHit := 'TopRight';
          HTTRANSPARENT    : WoHit := 'Transparent';
          HTVSCROLL        : WoHit := 'V-Scroll';
          HTZOOM           : WoHit := 'Zoom';
     else
          WoHit := IntToStr(mVKCode);
     end;

anzumerken wäre, dass die x- und y-Koordinaten richtig aus der Struktur ausgelesen werden.

[Sir Rufo]

Bist du dir sicher, dass du weißt, was du da gerade tust?

Ich fürchte mal nicht ... denn

• WH_MOUSE_LL -> MSLLHOOKSTRUCT
• WH_MOUSE -> MOUSEHOOKSTRUCT

Du sprichst immer von globalen (also den LowLevel) Hooks, benutzt aber die Struktur für den normalen Hook.
Welchen Hook willst du denn jetzt benutzen?

[hesch21]

Upps!
war vermutlich Wunschdenken! Ich bin vorderhand wirklich nur am rumspielen mit dem Maushook und die Anzeige, wo geklickt wurde, wäre echt schön gewesen. Das scheint aber mit der korrekten Low-Level-Struktur leider nicht möglich zu sein. Da gibt es nichts ähnliches wie HitTestCode. Schade.