Menüeinträge mit Bitmaps

[Luckie]

Ich versuche gerade in meinem nonVBCL Programm Menüeinträge mit Bitmaps zu versehen. Das soll angeblich mit SetMenuItemInfo gehen. nur bekomme ich immer einen seltsamen LastError, mit dem ich nichts anfangen kann:

Zitat:

Das System konnte die eingegebene Umgebungsoption

Mein Code sieht bisher so aus:

Delphi-Quellcode:

        // Menu Bitmaps
        FillChar(mii, sizeof(mii), #0);
        hBmp := LoadImage(HInstance, MAKEINTRESOURCE(4001), IMAGE_BITMAP, 16, 16,
          LR_DEFAULTCOLOR);
        hMenu := LoadMenu(HInstance, MAKEINTRESOURCE(5000));
        hMenu := GetSubMenu(hMenu, 0);
        mii.cbSize := sizeof(mii);
        mii.fMask := MIIM_BITMAP;
        mii.fType := MFT_BITMAP;
        mii.fState := MFS_DEFAULT;
        mii.hbmpItem := hBmp;
        SetMenuItemInfo(hMenu, 5001, False, mii);
        Messagebox(hDlg, PChar(SysErrorMessage(GetLastError)), '', 0);

Die Handles sind alle gültig. 4001 ist die Ressourcen ID für das Bitmap, 5000 für das Menü und 5001 für das Menüitem. Ich meine, ich hätte alles richtig gemacht. Aber es will einfach nicht so recht.