GetMenuItemInfo -> falscher Parameter

[turboPASCAL]

Warum nicht so?

Code:

(0)  (1)
File Help
     (0) Anderes
     (1) ---------
     (2) Sprache > Deutsch
                   Test

Delphi-Quellcode:

//..
  _hMenu := GetMenu(hwnd);
  _hSubMenu := GetSubMenu(_hMenu, 1);
  _hSubMenu := GetSubMenu(_hSubMenu, 2);
  AppendMenu(_hSubMenu, MF_STRING, 0815, 'Test');
  DrawMenuBar(hwnd);