how can i get the menu items

[Gintaras]

Code:

Copy      Help

ARRAY(str) ar
acc("" "MENUITEM" "Notepad" "Notepad" "" 0x8000 &acc_enum_menu &ar)
out ar

Function acc_enum_menu

Code:

Copy      Help

;/
function Acc&a level lParam
str s=a.Name
rep(level) s-" "
;out s
ARRAY(str)& ar=+lParam
ar[ar.redim(-1)]=s
ret 1