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...