Thema: Delphi Hook / Popupmenu

Einzelnen Beitrag anzeigen

golisan

Registriert seit: 17. Jan 2007
43 Beiträge
 
Delphi 2007 Professional
 
#4

Re: Hook / Popupmenu

  Alt 6. Aug 2007, 20:39
Hallo Leute,
danke erst mal, für die Antworten... aber irgendwie komme ich noch nicht ganz klar.
Mein Msg-Hook sie so aus

Delphi-Quellcode:
function MsgHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM):
 LRESULT; stdcall;
 var
 Scancode : Integer;
 type PMsg = ^TMsg;
  var msg: PMsg;

begin
 if ncode = HC_ACTION then
    with Windows.PMsg(lParam)^ do
      if message = WM_INITMENUPOPUP then
      begin
      showmessage('hab dich!');
      end;

  Result := CallNextHookEx(HookHandleMsg, nCode, wParam, lParam);


end;
Gut, ich gebe zu, daß ich den Code mir "zuammengesucht" habe und nicht unbedigt weiß, was da abgeht, aber "optisch" sieht es doch gut aus, oder? (Keyboard-/Maus-Hooks funktionieren)
Nochmal, was ich eigentlich machen will:
Ein Kontext-/Popup-Menu einer anderen Anwendung abfangen und zusätzliche Menüeinträge anhängen.
Das kann doch nicht so schwierig sein....
  Mit Zitat antworten Zitat