桌面悬浮菜单易语言源码

系统结构:开启鼠标透过,关闭鼠标透过,屏幕画矩形,寻找句柄列表,GetWindowLong,SetWindowLong,GetOpenFileName,打开事件同步对象,检测按键,开始构建窗口_,刷新窗口_,定位窗口_,取屏幕句柄_,取窗口矩形_,GetWindowDC,释放设备场景_,画矩形_,选入设备场景_,创建画笔_,默认光栅运算_,创建事件同步对象,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 开启鼠标透过
           |  |
           |  |------ 关闭鼠标透过
           |  |
           |  |------ _标签1_鼠标右键被按下
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _添加文件_被选择
           |  |
           |  |------ _列表框1_双击选择
           |  |
           |  |------ _列表框1_鼠标右键被放开
           |  |
           |  |------ __启动窗口_鼠标右键被放开
           |  |
           |  |------ _删除_被选择
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ _设置开机启动_被选择
           |  |
           |  |------ _取消开机启动_被选择
           |  |
           |  |------ _添加网址_被选择
           |  |
           |  |------ _帮助与关于_被选择
           |  |
           |  |------ __启动窗口_位置被改变
           |  |
           |  |------ _时钟2_周期事件
           |  |
           |  |------ _设置_被选择
           |  |
           |  |------ _图形按钮1_被单击
           |  |
           |  |------ _图形按钮2_被单击
           |  |
           |  |------ _画板1_鼠标左键被按下
           |  |
           |  |------ 屏幕画矩形
           |  |
           |  |------ _画板1_鼠标左键被放开
           |  |
           |  |------ _超级按钮1_被单击
           |  |
           |  |------ _超级按钮3_被单击
           |  |
           |  |------ _列表框2_列表项被选择
           |  |
           |  |------ _超级按钮2_被单击
           |  |
           |  |------ _超级按钮4_被单击
           |  |
           |  |------ _列表框2_鼠标右键被按下
           |  |
           |  |------ _超级按钮5_被单击
           |  |
           |  |------ _超级按钮6_被单击
           |  |
           |  |------ 寻找句柄列表
           |  |
           |  |------ _画板1_鼠标右键被按下
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _窗口2_创建完毕
           |  |
           |  |
======窗口程序集4
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======窗口程序集5
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _窗口4_创建完毕
           |  |
           |  |------ _滑块条1_位置被改变
           |  |
           |  |------ _滑块条2_位置被改变
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _删除配置文件并退出_被选择
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetOpenFileName
           |  |
           |  |---[dll]------   打开事件同步对象
           |  |
           |  |---[dll]------   检测按键
           |  |
           |  |---[dll]------   开始构建窗口_
           |  |
           |  |---[dll]------   刷新窗口_
           |  |
           |  |---[dll]------   定位窗口_
           |  |
           |  |---[dll]------   取屏幕句柄_
           |  |
           |  |---[dll]------   取窗口矩形_
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   释放设备场景_
           |  |
           |  |---[dll]------   画矩形_
           |  |
           |  |---[dll]------   选入设备场景_
           |  |
           |  |---[dll]------   创建画笔_
           |  |
           |  |---[dll]------   默认光栅运算_
           |  |
           |  |---[dll]------   创建事件同步对象

调用的DLL命令:

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 GetOpenFileName, 逻辑型, "Comdlg32", "GetOpenFileNameA"
    .参数 lpofn, tagOFN, 传址

.DLL命令 打开事件同步对象, 整数型, , "OpenEventA"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 lpName, 文本型

.DLL命令 检测按键, 整数型, "user32", "GetAsyncKeyState"
    .参数 键代码, 整数型

.DLL命令 开始构建窗口_, 整数型, "user32.dll", "BeginDeferWindowPos", , 公开, 该函数为一个多窗口位置结构分配内存并且返回该结构的句柄。多窗口位置结构是一个内部结构，应用程序不能直接引用。DeferWindowPos函数在多窗口位置结构中填充了将被移动的一个或多个窗口的目标位置信息。EndDeferWindowPos接收该结构的句柄，并且依据存储在该结构中的信息重定位这些窗口。
    .参数 初始窗口数量, 整数型, , nNumWindows,在结构中欲为其分配空间的初始窗口数量

.DLL命令 刷新窗口_, 整数型, "user32.dll", "EndDeferWindowPos", , 公开, 在一个单一的屏幕刷新周期内同时更新一个或多个窗口的位置和大小。成功返回真，失败返回假
    .参数 结构句柄, 整数型, , hWinPosInfo,参见相关帮助

.DLL命令 定位窗口_, 整数型, "user32.dll", "DeferWindowPos", , 公开, 为指定的窗口更新指定的多窗口位置结构，然后返回该更新结构的句柄。
    .参数 内部结构句柄, 整数型, , hWinPosInfo,多窗口定位结构的句柄，该结构包含着一个或多个窗口的尺寸和定位信息，可以由函数BeginDeterWindowPos（开始构建窗口_）返回该结构或是由最近一次调用的DeferWindowPos（更新窗口_）函数返回。
    .参数 窗口句柄, 整数型, , hwnd,欲定位的窗口
    .参数 插入位置, 整数型, , hWndInsertAfter,改变窗口列表位置。这个参数必须为窗口句柄或下列值之一：1、把窗口放在所有窗口的后面；0、将窗口放在所有窗口的前面；-1、总是在其它窗口的前面，即“总在最前面”；-2、放在所有“总在最前面”窗口的后面、其它类型窗口的前面
    .参数 水平坐标, 整数型, , x,窗口新的x坐标
    .参数 垂直坐标, 整数型, , y,窗口新的y坐标
    .参数 窗口宽度, 整数型, , cx,指定新窗口宽度
    .参数 窗口高度, 整数型, , xy,指定新窗口高度
    .参数 标志, 整数型, , wFlags,标志，可能是以下一些值：1、不改变窗口尺寸，即忽略窗口宽度和窗口高度参数；2、不移动窗口，即忽略水平坐标和垂直坐标参数；4、不改变窗口位置，即忽略插入位置参数；16：移动窗口后不激活，当然，如果移动前已经激活例外；32、移动窗口后重画窗口；64、显示窗口；128、掩藏窗口；256、移动窗口后，不重画上面的任何内容

.DLL命令 取屏幕句柄_, 整数型, "user32", "GetDesktopWindow", , ,

.DLL命令 取窗口矩形_, 整数型, "user32", "GetWindowRect", , ,
    .参数 窗口句柄, 整数型
    .参数 矩形区域, 矩形_, 传址

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

.DLL命令 释放设备场景_, 整数型, "user32", "ReleaseDC", , , ReleaseDC
    .参数 窗口句柄, 整数型, , hwnd，要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , hdc，要释放的设备场景句柄

.DLL命令 画矩形_, 整数型, "gdi32.dll", "Rectangle", , , Rectangle
    .参数 设备场景句柄, 整数型, , hdc
    .参数 左上角横坐标, 整数型, , X
    .参数 左上角纵坐标, 整数型, , Y
    .参数 右下角横坐标, 整数型, , X1
    .参数 右下角纵坐标, 整数型, , Y1

.DLL命令 选入设备场景_, 整数型, "gdi32.dll", "SelectObject", , , SelectObject
    .参数 场景句柄, 整数型, , hdc
    .参数 对象句柄, 整数型, , hobject

.DLL命令 创建画笔_, 整数型, "gdi32", "CreatePen", , ,
    .参数 风格, 整数型
    .参数 宽度, 整数型
    .参数 颜色, 整数型

.DLL命令 默认光栅运算_, 整数型, "gdi32", "SetROP2", , ,
    .参数 设备场景, 整数型
    .参数 光栅运算方式, 整数型

.DLL命令 创建事件同步对象, , , "CreateEventA"
    .参数 lpEventAttributes, 整数型
    .参数 bManualReset, 逻辑型
    .参数 bInitialState, 逻辑型
    .参数 lpName, 文本型