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?