经典的托盘菜单实例

置托盘图标 (图标, “托盘图标”)
hMenu ＝ GetSystemMenu (取窗口句柄 (), 假)
.如果真 (是否为调试版 () ＝ 假)
添加菜单项 (hMenu, 7, 位或 (1024, 2048), 253, “”)
添加菜单项 (hMenu, 8, 1024, 65536, “MyApp”)
菜单项加图标 (hMenu, 取图片组图片 (#ICONS, 0, #品红), 8)
.如果真结束
默认窗口程序 ＝ SetWindowLong (取窗口句柄 (), -4, 到整数 (&消息处理))
经典的托盘菜单演示例子。