WH_CALLWNDPROC-Hook // SystemMenu-Items

[bepe]

Zitat:

Wie ist im 2. Beispiel von dir denn MeinMenuItem definiert?

Meinst du die Konstante? Wie im Ersten:

Delphi-Quellcode:

const 
  MeinMenuItem = 4711;

Und so füge ich ins Menü ein:

Delphi-Quellcode:

var
  hMenu: THandle;
begin
  hMenu := GetSystemMenu(Application.MainFormHandle, False);
  if hMenu <> 0 then
  begin
    InsertMenu(hMenu, 0, MF_BYPOSITION, MeinMenuItem, 'MeinItem');
    DrawMenuBar(hMenu);
  end;

Zitat:

Versuch doch mal einen expliziten Aufruf über CallWindowProc mit MeinMenuItem

Das habe ich jetzt ausprobiert und funktioniert wunderbar. (Naja, beim CallNextHookEx kommt eine AV. Aber Ereignis kommt an und wird korrekt verarbeitet.)

Delphi-Quellcode:

var
  cwps: TCWPStruct;
begin
  cwps.message := WM_SYSCOMMAND;
  cwps.wParam := MeinMenuItem;
  WndProc(HC_ACTION, 0, Integer(@cwps));

Zitat:

Wenns dann klappt, weisst du jedenfalls, dass der Fehler nicht an dem gerade eben von dir gepostetem Code liegt.

Da bin ich mir nicht ganz sicher. Wenn in meiner WndProc etwas falsch ist werde ich die Parameter wohl nicht verstanden haben. Somit wäre dann auch mein Aufruf fehlerhaft..

Aber danke..

EDIT:
OK, wer beim Lesen die Augen öffnet ist klar im Vorteil. Du hast CallWindowProc gesagt und nicht direkter Aufruf, also:

Delphi-Quellcode:

var
  cwps: TCWPStruct;
begin
  cwps.message := WM_SYSCOMMAND;
  cwps.wParam := MeinMenuItem;
  CallWindowProc(@WndProc, Application.MainFormHandle, WM_SYSCOMMAND, 0, Integer(@cwps));

Er geht wieder in meine WndProc, ich bekomme wieder eine AV beim CallNextHookEx. Aber er ich habe keine Ahnung wie ich HC_ACTION übergeben könnte. Daher greift meine Behandlung nicht...