WH_CALLWNDPROC-Hook // SystemMenu-Items

[bepe]

Zitat:

Mach dir das Leben doch nicht so schwer !

Gute Idee, habe den Hook entfernt und mache es jetzt doch, mehr oder weniger, wie von Macci gezeigt. Ich überschreibe/tausche einfach die Proc vom MainForm.

Delphi-Quellcode:

...
  FWndBackup := Pointer(GetWindowLong(Application.MainFormHandle, GWL_WNDPROC));
  SetWindowLong(Application.MainFormHandle, GWL_WNDPROC, Integer(@WndProc2));
...

function WndProc2(WND: hwnd; Msg: LongInt; wParam: longint; lParam : longint): LRESULT; stdcall;
begin
  Result := CallWindowProc(FWndBackup, Wnd, Msg, wParam, lParam);
    case Msg of
      WM_SYSCOMMAND:
      begin
          case Word(wParam) of
            MeinMenutItem: MessageBox(0, 'Es klappt endlich!', '', 0);
          end;
      end;
    end;
end;

So funktioniert es endlich Aber sollte jemand noch eine Idee zu dem Hook haben, ich bin immer noch neugierig.

Und nochmal danke...