HMENU zur laufzeit die Beschriftung herausbekommen

[Luckie]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  MenuString: PChar;
  len: Integer;
begin
  len := GetMenuString(GetSubMenu(MainMenu1.Handle, 0), 0, nil, 0, MF_BYPOSITION);
  if (len > 0) then
  begin
    GetMem(MenuString, len + 1);
    try
      GetMenuString(GetSubMenu(MainMenu1.Handle, 0), 0, MenuString, len + 1, MF_BYPOSITION);
      ShowMessage(MenuString);
    finally
      FreeMem(MenuString);
    end;
  end;
end;

Dazu passendes Menü:

Code:

Datei
  Test

"Test" ist der nullte Submenüneintrag vom Hauptmenü "Datei".