近在眼前空白窗口创建菜单例程

系统结构:处理,子程序1,GetWindowLongA,GetMenu,GetSubMenu,InsertMenuA,GetMenuItemID,SetMenu,CreateMenu,CreatePopupMenu,AppendMenu,CallWindowProcA,SetWindowLongA,SetMenuItemBitmaps,GetSystemMetrics,LoadImage,TrackPopupMenu,GetMenuString,

======启动窗口程序集

           |  |

           |  |------ __启动窗口_创建完毕

           |  |

           |  |------ 处理

           |  |

           |  |------ _按钮1_被单击

           |  |

           |  |------ 子程序1

           |  |

           |  |

======调用的Dll

           |  |

           |  |---[dll]------   GetWindowLongA

           |  |

           |  |---[dll]------   GetMenu

           |  |

           |  |---[dll]------   GetSubMenu

           |  |

           |  |---[dll]------   InsertMenuA

           |  |

           |  |---[dll]------   GetMenuItemID

           |  |

           |  |---[dll]------   SetMenu

           |  |

           |  |---[dll]------   CreateMenu

           |  |

           |  |---[dll]------   CreatePopupMenu

           |  |

           |  |---[dll]------   AppendMenu

           |  |

           |  |---[dll]------   CallWindowProcA

           |  |

           |  |---[dll]------   SetWindowLongA

           |  |

           |  |---[dll]------   SetMenuItemBitmaps

           |  |

           |  |---[dll]------   GetSystemMetrics

           |  |

           |  |---[dll]------   LoadImage

           |  |

           |  |---[dll]------   TrackPopupMenu

           |  |

           |  |---[dll]------   GetMenuString

调用的DLL命令:

.DLL命令 GetWindowLongA, 子程序指针, , "GetWindowLongA"

    .参数 窗口句柄, 整数型

    .参数 要取的特征, 整数型

.DLL命令 GetMenu, 整数型, , "GetMenu", , 取指定窗口的菜单条句柄

    .参数 窗口句柄, 整数型

.DLL命令 GetSubMenu, 整数型, , "GetSubMenu"

    .参数 菜单句柄, 整数型

    .参数 位置, 整数型

.DLL命令 InsertMenuA, 逻辑型, , "InsertMenuA"

    .参数 菜单句柄, 整数型

    .参数 位置, 整数型

    .参数 标志, 整数型

    .参数 ID, 整数型

    .参数 标题, 文本型

.DLL命令 GetMenuItemID, 整数型, , "GetMenuItemID"

    .参数 菜单句柄, 整数型

    .参数 位置, 整数型

.DLL命令 SetMenu, 整数型, "user32", "SetMenu"

    .参数 hwnd, 整数型

    .参数 hMenu, 整数型

.DLL命令 CreateMenu, 整数型, "user32", "CreateMenu"

.DLL命令 CreatePopupMenu, 整数型, "user32", "CreatePopupMenu"

.DLL命令 AppendMenu, 整数型, "user32", "AppendMenuA"

    .参数 hMenu, 整数型

    .参数 wFlags, 整数型

    .参数 wIDNewItem, 整数型

    .参数 lpNewItem, 文本型, , 此参数的类型为Any，请按实际应用情况修改。

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"

    .参数 程序指针, 子程序指针

    .参数 窗口句柄, 整数型

    .参数 消息, 整数型

    .参数 参数1, 整数型

    .参数 参数2, 整数型

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"

    .参数 窗口句柄, 整数型

    .参数 要置的特征, 整数型

    .参数 新特征, 子程序指针, , 仅易语言3.0支持

.DLL命令 SetMenuItemBitmaps, 整数型, , "SetMenuItemBitmaps"

    .参数 hMenu, 整数型

    .参数 nPosition, 整数型

    .参数 wFlags, 整数型

    .参数 hBitmapUnchecked, 整数型

    .参数 hBitmapChecked, 整数型

.DLL命令 GetSystemMetrics, 整数型, , "GetSystemMetrics"

    .参数 nIndex, 整数型

.DLL命令 LoadImage, 整数型, , "LoadImageA"

    .参数 hInst, 整数型

    .参数 lpsz, 文本型

    .参数 un1, 整数型

    .参数 n1, 整数型

    .参数 n2, 整数型

    .参数 un2, 整数型

.DLL命令 TrackPopupMenu, 整数型, "user32", "TrackPopupMenu"

    .参数 hMenu, 整数型

    .参数 wFlags, 整数型

    .参数 x, 整数型

    .参数 y, 整数型

    .参数 nReserved, 整数型

    .参数 hwnd, 整数型

    .参数 lprc

.DLL命令 GetMenuString, 整数型, "user32", "GetMenuStringA"

    .参数 hMenu, 整数型

    .参数 wIDItem, 整数型

    .参数 lpString, 文本型

    .参数 nMaxCount, 整数型

    .参数 wFlag, 整数型