五彩缤纷文字跑马灯

mhwnd ＝ CreatePopupMenu ()
AppendMenuA (mhwnd, 0, 1, “打开”)
AppendMenuA (mhwnd, 0, 2, “查看源代码”)
AppendMenuA (mhwnd, 0, 3, “属性”)
ret ＝ TrackPopupMenuEx (mhwnd, 位或 (0, 256, 2), 取鼠标水平位置 (), 取鼠标垂直位置 (), 取窗口句柄 (), 0)
.如果真 (ret ＝ 2)
FilePath ＝ 取临时文件名 ()
写到文件 (FilePath, 到字节集 (#HTML_Code))
运行 (“notepad ” ＋ FilePath, 假, #普通激活)
.如果真结束
DestroyMenu (mhwnd)