Menü-Event aus Main window in DLL erhalten?

[jbg]

Delphi-Quellcode:

var
  OrgWndProc: function(hwnd: HWND; Msg: Word; wParam: WPARAM; lParam: LPARAM): Integer; stdcall;

function MyWndProc(hwnd: HWND; Msg: Word; wParam: WPARAM; lParam: LPARAM): Integer; stdcall;
begin
  if Msg = WM_COMMAND then
  begin
    // Auswerten
  end;
  if Assigned(OrgWndProc) then Result := OrgWndProc(hwnd, Msg, wParam, lParam)
  else Result := DefWindowProc(hwnd, Msg, wParam, lParam);
end;


procedure HookWndProc(hwnd: HWND);
begin
  @OrgWndProc := Pointer(GetWindowLong(hwnd, GWL_WNDPROC));
  SetWindowLong(hwnd, GWL_WNDPROC, @MyWndProc);
end;

procedure UnHookWndProc(hwnd: HWND);
begin
  SetWindowLong(hwnd, GWL_WNDPROC, @OrgWndProc);
end;