易语言任务栏菜单演示源码

系统结构:消息处理,托盘菜单被点击,显示隐藏主窗口,动态弹出菜单,菜单项加图标,图像_取图片句柄,Release,get_Handle,动态调用子程序,GetWindowRect,GetMenu,GetSubMenu,GetSystemMetrics,LoadImageA,SetMenuItemBitmaps,AppendMenu,CreateMenu,CreatePopupMenu,TrackPopupMenu,GetMenuItemID,GlobalAlloc,GlobalLock,CopyMemory,GlobalUnlock,CreateStreamOnHGlobal,CLSIDFromString,OleLoadPicture,CopyImage,DeleteObject,GlobalFree,CallWindowProc_调用子程序,RtlMoveMemory,SkinH_Attach,SetWindowLong,CallWindowProc,添加菜单项,GetSystemMenu,GetCommandLine,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 消息处理
           |  |
           |  |------ 托盘菜单被点击
           |  |
           |  |------ 显示隐藏主窗口
           |  |
           |  |------ __启动窗口_托盘事件
           |  |
           |  |------ 动态弹出菜单
           |  |
           |  |------ 菜单项加图标
           |  |
           |  |------ 图像_取图片句柄
           |  |
           |  |------ Release
           |  |
           |  |------ get_Handle
           |  |
           |  |------ _ToDword
           |  |
           |  |------ 动态调用子程序
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   GetMenu
           |  |
           |  |---[dll]------   GetSubMenu
           |  |
           |  |---[dll]------   GetSystemMetrics
           |  |
           |  |---[dll]------   LoadImageA
           |  |
           |  |---[dll]------   SetMenuItemBitmaps
           |  |
           |  |---[dll]------   AppendMenu
           |  |
           |  |---[dll]------   CreateMenu
           |  |
           |  |---[dll]------   CreatePopupMenu
           |  |
           |  |---[dll]------   TrackPopupMenu
           |  |
           |  |---[dll]------   GetMenuItemID
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   CopyMemory
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   CreateStreamOnHGlobal
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   OleLoadPicture
           |  |
           |  |---[dll]------   CopyImage
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   _P_INT32
           |  |
           |  |---[dll]------   CallWindowProc_调用子程序
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   SkinH_Attach
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   添加菜单项
           |  |
           |  |---[dll]------   GetSystemMenu
           |  |
           |  |---[dll]------   GetCommandLine

调用的DLL命令:

.DLL命令 GetWindowRect, 逻辑型, "user32.dll", "GetWindowRect"
    .参数 窗口句柄, 整数型
    .参数 窗口矩形, Rect, 传址

.DLL命令 GetMenu, 整数型, "user32", "GetMenu"
    .参数 窗口句柄, 整数型

.DLL命令 GetSubMenu, 整数型, "user32", "GetSubMenu"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 GetSystemMetrics, 整数型, "user32", "GetSystemMetrics"
    .参数 索引, 整数型

.DLL命令 LoadImageA, 整数型, , "LoadImageA"
    .参数 hInst, 整数型
    .参数 lpsz, 文本型
    .参数 un1, 整数型
    .参数 n1, 整数型
    .参数 n2, 整数型
    .参数 un2, 整数型

.DLL命令 SetMenuItemBitmaps, 整数型, , "SetMenuItemBitmaps"
    .参数 hMenu, 整数型, , 菜单的句柄
    .参数 nPosition, 整数型
    .参数 wFlags, 整数型
    .参数 hBitmapUnchecked, 整数型
    .参数 hBitmapChecked, 整数型

.DLL命令 AppendMenu, 整数型, "user32", "AppendMenuA"
    .参数 hMenu, 整数型
    .参数 wFlags, 整数型
    .参数 wIDNewItem, 整数型
    .参数 lpNewItem, 文本型, , 此参数的类型为Any，请按实际应用情况修改。

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

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

.DLL命令 TrackPopupMenu, 整数型, "user32", "TrackPopupMenu"
    .参数 hMenu, 整数型
    .参数 wFlags, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nReserved, 整数型
    .参数 hwnd, 整数型
    .参数 lprc

.DLL命令 GetMenuItemID, 整数型, , "GetMenuItemID"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型

.DLL命令 GlobalAlloc, 整数型, "kernel32"
    .参数 uFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalLock, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 CopyMemory, , "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节集
    .参数 Length, 整数型

.DLL命令 GlobalUnlock, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 CreateStreamOnHGlobal, 整数型, "ole32"
    .参数 hGlobal, 整数型
    .参数 fDeleteOnRelease, 整数型
    .参数 ppstm, 整数型, 传址

.DLL命令 CLSIDFromString, , "ole32.dll", "CLSIDFromString"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

.DLL命令 OleLoadPicture, 整数型, "olepro32"
    .参数 pStream, 整数型
    .参数 lSize, 整数型
    .参数 fRunmode, 整数型
    .参数 riid, 字节集, 传址
    .参数 ppvObj, 整数型, 传址

.DLL命令 CopyImage, 整数型
    .参数 hImage, 整数型
    .参数 uType, 整数型
    .参数 cxDesired, 整数型
    .参数 cyDesired, 整数型
    .参数 fuFlags, 整数型

.DLL命令 DeleteObject, 整数型, , "DeleteObject"
    .参数 hObject, 整数型

.DLL命令 GlobalFree, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 _P_INT32, 整数型, , "lstrcatA"
    .参数 lpString1, 整数型, 传址
    .参数 lpString2, 整数型, 传址

.DLL命令 CallWindowProc_调用子程序, 整数型, , "CallWindowProcA"
    .参数 动态调用代码, 字节集
    .参数 子程序, 整数型
    .参数 参数, 整数型, 数组
    .参数 参数数目, 整数型
    .参数 是否C调用, 逻辑型

.DLL命令 RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 SkinH_Attach, 整数型, "Skinh.dll", "SkinH_Attach"

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 特征索引, 整数型
    .参数 新特征, 整数型

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 窗口程序程序指针, 整数型
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 添加菜单项, 整数型, "user32.dll", "InsertMenuA"
    .参数 菜单句柄, 整数型
    .参数 位置, 整数型
    .参数 标志, 整数型
    .参数 ID, 整数型
    .参数 标题, 文本型

.DLL命令 GetSystemMenu, 整数型, "user32", "GetSystemMenu"
    .参数 hWnd, 整数型
    .参数 bRevert, 逻辑型

.DLL命令 GetCommandLine, 文本型, "kernel32", "GetCommandLineA"