include "mapbasic.def"
include "menu.def"
declare sub main
sub main
dim abcd as string
run application "路径\登录界面.WOR"
create menu bar as
"登录",
"控制",
"帮助"
create menu "登录设置" as
"自动登录",
"修改密码"
alter menu "登录" add
"来宾登录",
"用户登录",
"(-",
"登录设置" as "登录设置"
create menu "多媒体选项" as
"!+视频",
"!+音频",
"幻灯片",
"(录制"
alter menu "控制" add
"多媒体选项" as "多媒体选项"
end sub