Menüpunkte eines fremden Programms

[Cuchulainn]

Guten Morgen.

Mit folgendem Quelltext möchte ich gerne die Menüpunkte des Hauptmenüs eines fremden Programms in einer Listbox anzeigen.

Delphi-Quellcode:

procedure TFrmMenues.FormCreate(Sender: TObject);
var hBiss: HWND;
    hMenue: HMENU;
    IntZaehler: Integer;
    StrText: String;
begin
  hBiss := FindWindow(nil, 'Biss+');
  hMenue := GetMenu(hBiss);
  SetLength(StrText, 255);
  for IntZaehler := 0 to GetMenuItemCount(hMenue) - 1 do
  begin
    GetMenuString(hMenue, IntZaehler, pchar(StrText), SizeOf(StrText), MF_BYPOSITION);
    ListBoxHaupt.Items.Add(StrText);
  end;
end;

Allerdings werden mir immer nur die die ersten drei Zeichen angezeigt. Weiß jemand, wo der Fehler liegt?

[shmia]

Versuch mal (ungetestet):

Delphi-Quellcode:

procedure TFrmMenues.FormCreate(Sender: TObject); 
var hBiss: HWND; 
    hMenue: HMENU; 
    IntZaehler, len: Integer; 
    StrText: String; 
begin 
  hBiss := FindWindow(nil, 'Biss+'); 
  hMenue := GetMenu(hBiss); 
  for IntZaehler := 0 to GetMenuItemCount(hMenue) - 1 do 
  begin 
    // benötigte Länge abfragen
    len := GetMenuString(hMenue, IntZaehler, nil, 0, MF_BYPOSITION);
    // Speicher bereitstellen
    SetLength(StrText, len+1);  // +1 für terminating null character

    if GetMenuString(hMenue, IntZaehler, pchar(StrText), len+1, MF_BYPOSITION) <> 0 then
       ListBoxHaupt.Items.Add(Copy(StrText,1, len))
    else
       ListBoxHaupt.Items.Add(Format('GetMenuString(,%d,,) failed', [IntZaehler])
  end; 
end;

Ausserdem würde ich daraus eine Procedure machen:
procedure FillTStringsFromMenuHandle(hMenue: HMENU; list:TStrings);
und in irgeneine Unit mit weiteren Hilfsfunktionen packen.

[Cuchulainn]

Vielen Dank. Es hat funktioniert.

Zitat:

Zitat von shmia

Ausserdem würde ich daraus eine Procedure machen:
procedure FillTStringsFromMenuHandle(hMenue: HMENU; list:TStrings);
und in irgeneine Unit mit weiteren Hilfsfunktionen packen.

Das ist eine gute Idee. Aber zuerst wollte ich einmal sicher sein, dass es überhaupt funktioniert :)

[Larsi]

Auch wenns schon ziemlich alt ist. Wie muss ich die Procedur umbauen sodass die Items ohne Listbox mit Subitems in ein Mainmenü auf meiner Form kopiert werden?

[DeddyH]

Zitat:

...sodass die Items ohne Listbox mit Subitems in ein Mainmenü auf meiner Form...

:wiejetzt:

[Larsi]

Zitat:

Zitat von DeddyH

Zitat:

...sodass die Items ohne Listbox mit Subitems in ein Mainmenü auf meiner Form...

:wiejetzt:

:wiejetzt:

Also die Items aus dem fremden Menü sollen sammt Subitems in ein Mainmenü auf meiner Form kopiert werden.

[DeddyH]

Schau Dir mal InsertMenuItem an.

[Larsi]

Und wass muss ich der Funktion in diesem Beipsiel für Parameter übergeben?

MSDN sagt folgendes:

Zitat:

BOOL InsertMenuItem(
HMENU hMenu,
UINT uItem,
BOOL fByPosition,
LPCMENUITEMINFO lpmii
);

Aber was muss da in meinen Fall rein?

Edit: Sicher, dass InserMenuItem richtig ist? Das erstellt ja in der fremden Anwendung MEnüeinträge oder kann man das auch anders nutzen?

[DeddyH]

Es steht doch da:

Zitat:

Parameters

hMenu
[in] Handle to the menu in which the new menu item is inserted.
uItem
[in] Identifier or position of the menu item before which to insert the new item. The meaning of this parameter depends on the value of fByPosition.
fByPosition
[in] Value specifying the meaning of uItem. If this parameter is FALSE, uItem is a menu item identifier. Otherwise, it is a menu item position.
lpmii
[in] Pointer to a MENUITEMINFO structure that contains information about the new menu item.

hMenu wäre also in Deinem Fall das Handle des Menüs, in das eingefügt werden soll. Ob das auf Deinem Formular oder woanders liegt, ist doch erstmal egal, oder?

[Larsi]

Muss das wirklich alle so kompliziert sein? Kann man nicht einfach das Mainmenü in mein Programm kopieren?

[DeddyH]

Tja, schon eine Frechheit, dass Microsoft so etwas wie HijackMenu() nicht implementiert hat.