易语言怎么把菜单写在_启动窗口标题上

要用到API，代码如下：

.版本 2

.程序集 窗口程序集1

.程序集变量 lProcOld

.子程序 __启动窗口_创建完毕

.局部变量 lhSysMenu

.局部变量 lRet

lhSysMenu ＝ 取系统菜单句柄_ (_启动窗口.取窗口句柄 (), 0)

lRet ＝ 添加菜单项_ (lhSysMenu, 2048, 0, “”)

lRet ＝ 添加菜单项_ (lhSysMenu, 0, 1000, “关于”) ' 那个关于天你要出现的文字表达

lProcOld ＝ 设置窗口信息_ (_启动窗口.取窗口句柄 (), -4, 到整数 (&SysMenuHandler)) ' GWL_WNDPROC = -4

.子程序 SysMenuHandler, 整数型

.参数 hWnd, 整数型

.参数 iMsg, 整数型

.参数 wParam, 整数型

.参数 lParam, 整数型

.如果真 (iMsg ＝ 274) ' WM_SYSCOMMAND = 274

.如果真 (wParam ＝ 1000) ' IDM_ABOUT = 1000

载入 (关于, _启动窗口, 真) ' 这里填你要按下这个菜单按钮的响应时间

.如果真结束

.如果真结束

返回 (呼叫窗口函数地址_ (lProcOld, hWnd, iMsg, wParam, lParam))

DLL用到的API函数：

.版本 2

.DLL命令 呼叫窗口函数地址_, 整数型, "user32.dll", "CallWindowProcA"

.参数 前一窗口函数地址, 整数型

.参数 窗口句柄, 整数型

.参数 消息值, 整数型

.参数 附加参数1, 整数型

.参数 附加参数2, 整数型

.DLL命令 取系统菜单句柄_, 整数型, "user32", "GetSystemMenu", , 取得指定窗口的系统菜单的句柄。在vb环境，“系统菜单”的正式名称为“控制菜单”，即单击窗口左上角的控制框时出现的菜单 如执行成功，返回系统菜单的句柄；零意味着出错。如bRevert设为TRUE，也会返回零（简单的恢复原始的系统菜单）

.参数 窗口句柄, 整数型, , 窗口的句柄

.参数 回复, 整数型, , 如设为TRUE，表示接收原始的系统菜单

.DLL命令 添加菜单项_, 整数型, "user32.dll", "AppendMenuA", , 非零表示成功，零表示失败

.参数 菜单句柄, 整数型, , hMenu,菜单句柄

.参数 菜单常数标志, 整数型, , wFlags,参见相关帮助

.参数 新菜单条目ID, 整数型, , wIDNewItem,指定菜单条目的新命令ID

.参数 标志值, 文本型, , lpNewItem,参见相关帮助

.DLL命令 SetProcessWorkingSetSize, 整数型, , "SetProcessWorkingSetSize", , 内存优化

.参数 hProcess

.参数 dwMinimumWorkingSetSize

.参数 dwMaximumWorkingSetSize

.DLL命令 设置窗口信息_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息 指定数据的前一个值

.参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄

.参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明

.参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

望采纳，谢谢！本文一字一字打的，请勿Ctrl C + V！

.版本 2

.支持库 iext

.局部变量 i, 整数型

.计次循环首 (10, i)

超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (i － 1, 0, 到文本 (i))

超级列表框1.置标题 (i － 1, 1, “第” ＋ 到文本 (i) ＋ “行第2列内容”)

超级列表框1.置标题 (i － 1, 2, “第” ＋ 到文本 (i) ＋ “行第3列内容”)

.计次循环尾 ()

.子程序 _超级列表框1_右键单击表项

编辑框1.内容 ＝ 到文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 0))

把超级列表框属性的事先选择设为“真”就行了。

---