Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Fremdes PopupMenu erweitern (https://www.delphipraxis.net/153303-fremdes-popupmenu-erweitern.html)

Björn Ole 28. Jul 2010 15:39

Fremdes PopupMenu erweitern
 
Hallo,


ist es möglich, ein Popupmenu (des Tray-Icons) einer fremden,
nicht-Delphi Anwendung (32bit) um einen Eintrag zu erweitern?

Ich habe schon versucht, Informationen zu sammeln, aber finde nichts passendes,
nocht nicht mal irgendwelche Nachrichten, die ich hooken könnte.
Darum befürchte ich, dass es überhaupt nicht möglich ist... :(

Wäre für einen Ratschlag dankbar.


Gruß, Björn

mkinzler 28. Jul 2010 15:43

AW: Fremdes PopupMenu erweitern
 
Was hast du vor?

Björn Ole 28. Jul 2010 15:52

AW: Fremdes PopupMenu erweitern
 
Ich habe für eine Anwendung eine Art Zusatzfeature programmiert und möchte jetzt einen kleinen "Einstellungen"-Dialog über das Popupmenu öffnen. Zur Not könnte ich mein Zusatzfeature auch in eine weitere Anwendung auslagern und es darüber machen, aber mich würde es halt interessieren, ob es nicht auch über das Popupmenu geht, weil das komfortabler zu bedienen wäre.

mkinzler 28. Jul 2010 15:54

AW: Fremdes PopupMenu erweitern
 
Also ich persönlich fände es nicht gut, wenn jemand ein Kontextmenü meiner Anwendung erweitert.

Björn Ole 28. Jul 2010 15:57

AW: Fremdes PopupMenu erweitern
 
Hättest du einen besseren Vorschlag?

Ich würde die TNA ungern mit einem weiteren Icon belästigen wollen, und da schien mir die Idee mit dem Erweitern des Popupmenus am dezentesten.


[Edit]
Habe es inzwischen selber hinbekommen.
  • WH_CALLWNDPROC mittels SetWindowsHookEx hooken
  • auf WM_INITMENU warten
  • InsertMenuItem mit dem Handle des PopupMenus (CWPSTRUCT.wParam) aufrufen

Für weitere Ratschläge bin ich aber weiterhin offen. :wink:

Schwedenbitter 4. Jul 2011 14:24

AW: Fremdes PopupMenu erweitern
 
Zitat:

Zitat von Björn Ole (Beitrag 1038164)
[Edit]
Habe es inzwischen selber hinbekommen.
  • WH_CALLWNDPROC mittels SetWindowsHookEx hooken
  • auf WM_INITMENU warten
  • InsertMenuItem mit dem Handle des PopupMenus (CWPSTRUCT.wParam) aufrufen

Würde es Dir viel ausmachen, hier mal Code zu posten?

Ich stehe vor einem ähnlichen Problem. Ich möchte gern das PopupMenü eines stinknormales TMemo um einen Eintrag erweitern.
Mit
Delphi-Quellcode:
lMenu:=GetSystemMenu(Memo1.Handle, False);
InsertMenu(lMenu, 0, MF_BYPOSITION, PrevItemID, 'Icons preview');
klappt es leider nicht. Ist ja auch kein SystemMenü. Aber
Delphi-Quellcode:
GetMemo
bringt mich auch nicht weiter ...

EWeiss 4. Jul 2011 16:03

AW: Fremdes PopupMenu erweitern
 
Zitat:

Zitat von Schwedenbitter (Beitrag 1109907)
Zitat:

Zitat von Björn Ole (Beitrag 1038164)
[Edit]
Habe es inzwischen selber hinbekommen.
  • WH_CALLWNDPROC mittels SetWindowsHookEx hooken
  • auf WM_INITMENU warten
  • InsertMenuItem mit dem Handle des PopupMenus (CWPSTRUCT.wParam) aufrufen

Würde es Dir viel ausmachen, hier mal Code zu posten?

Ich stehe vor einem ähnlichen Problem. Ich möchte gern das PopupMenü eines stinknormales TMemo um einen Eintrag erweitern.
Mit
Delphi-Quellcode:
lMenu:=GetSystemMenu(Memo1.Handle, False);
InsertMenu(lMenu, 0, MF_BYPOSITION, PrevItemID, 'Icons preview');
klappt es leider nicht. Ist ja auch kein SystemMenü. Aber
Delphi-Quellcode:
GetMemo
bringt mich auch nicht weiter ...

na ja mal ne dumme frage warum verwendest du dann nicht GetMenu(dein handle) ?
dann über GetMenuItemCount(ermitteltes handle) die einträge auslesen


gruss

Schwedenbitter 4. Jul 2011 16:18

AW: Fremdes PopupMenu erweitern
 
Zitat:

Zitat von EWeiss (Beitrag 1109921)
na ja mal ne dumme frage warum verwendest du dann nicht GetMenu(dein handle) ?
dann über GetMenuItemCount(ermitteltes handle) die einträge auslesen

gruss

Danke für die Antwort! Und: Es gibt keine Dummen Fragen!

Die Idee hört sich gut an. Allerdings erhalte ich ja über GetMenu schon nicht das passende Handle. Denn Ansonsten würde ich Items einfügen können. GetMenuItemCount(); bringt mir daher m.E. nichts. So erhalte ich immer -1 für folgende Aufrufe:
Delphi-Quellcode:
lMenu:=GetMenu(self.Handle);
Caption:=IntToStr(GetMenuItemCount(lMenu));
lMenu:=GetMenu(Memo1.Handle);
Caption:=IntToStr(GetMenuItemCount(lMenu));
Gruß

EWeiss 4. Jul 2011 16:20

AW: Fremdes PopupMenu erweitern
 
Zitat:

Zitat von Schwedenbitter (Beitrag 1109922)
Zitat:

Zitat von EWeiss (Beitrag 1109921)
na ja mal ne dumme frage warum verwendest du dann nicht GetMenu(dein handle) ?
dann über GetMenuItemCount(ermitteltes handle) die einträge auslesen

gruss

Danke für die Antwort! Und: Es gibt keine Dummen Fragen!

Die Idee hört sich gut an. Allerdings erhalte ich ja über GetMenu schon nicht das passende Handle. Denn Ansonsten würde ich Items einfügen können. GetMenuItemCount(); bringt mir daher m.E. nichts. So erhalte ich immer -1 für folgende Aufrufe:
Delphi-Quellcode:
lMenu:=GetMenu(self.Handle);
Caption:=IntToStr(GetMenuItemCount(lMenu));
lMenu:=GetMenu(Memo1.Handle);
Caption:=IntToStr(GetMenuItemCount(lMenu));
Gruß

Ich habe ein Programm in Delphi geschrieben mit dem man fremde Menüs Fernsteuern kann!
Bei bedarf lade ich es als Open Source mal hoch.
Denke da ist was passendes dabei mit dem du weiterarbeiten könntest.

gruss

Schwedenbitter 4. Jul 2011 16:29

AW: Fremdes PopupMenu erweitern
 
Zitat:

Zitat von EWeiss (Beitrag 1109923)
Ich habe ein Programm in Delphi geschrieben mit dem man fremde Menüs Fernsteuern kann!
Bei bedarf lade ich es als Open Source mal hoch.
Denke da ist was passendes dabei mit dem du weiterarbeiten könntest.

gruss

Bedarf!

Der Screenshot sieht vielversprechend aus. Kann man damit "nur" Menüs oder auch - wie von mir benötigt - PopupMenüs fernsteuern. Dann wäre es etwas für mich. Denn wenn man das mit fremden Programmen kann, sollte es innerhalb der eigenen Application erst Recht funktionieren.

Hier im Forum gibt es mehrere Themen dazu. Diese kommmen alle zu dem Ergebnis, dass man das PopupMenü lieber selbst (nach)schreiben und dann die weiteren Einträge hinzufügen sollte. Das finde ich nicht so elegant.

Gruß


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:34 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz