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