Menú a la derecha de la ventana

Menu a la derecha de la ventana

Menu a la derecha de la ventana : Multi-millones de consejos para hacer su vida mas facil.

Es el menu a la derecha de la ventana ?
var
& nbsp & nbsp MENUITEMINFO: TMENUITEMINFO
& nbsp & nbsp Buffer: array[0..79] of Char // declarado en el menu.pas. Me pregunto por que 79.
begin
& nbsp & nbsp FillChar(MENUITEMINFO, SizeOf(MENUITEMINFO), 0)
& nbsp & nbsp // !! No usar SizeOf(MENUITEMINFO) porque es necesario para Windows 95
& nbsp & nbsp // !! Cf. Menu.pas
& nbsp & nbsp MENUITEMINFO.cbSize := 44
& nbsp & nbsp MENUITEMINFO.fMask := MIIM_TYPE
& nbsp & nbsp MENUITEMINFO.dwTypeData := Buffer
& nbsp & nbsp MENUITEMINFO.cch := SizeOf(Buffer)
& nbsp & nbsp // Obtencion de informacion
& nbsp & nbsp si GetMenuItemInfo(MainMenu1.Mango, 1, TRUE, MENUITEMINFO), a continuacion,
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp MENUITEMINFO.fType := MENUITEMINFO.fType o MFT_RIGHTJUSTIFY
& nbsp & nbsp & nbsp & nbsp si SetMenuItemInfo(MainMenu1.Mango, 1, TRUE, MENUITEMINFO), a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp DrawMenuBar(Asa) // no se requiere si se hace en el evento OnCreate
& nbsp & nbsp final