易语言甩动窗口源码

系统结构:窗口函数,CreateWindowEx,RegisterClassEx,ShowWindow,UpdateWindow,GetModuleHandle,DefWindowProc,DispatchMessage,GetMessage,TranslateMessage,LoadCursor,LoadIcon,PostQuitMessage,GetMenu,CreateMenu,CreatePopupMenu,AppendMenu,SetMenu,SetWindowLong,CallWindowProc,GetSubMenu,GetMenuItemCount,GetActiveWindow,MessageBox,SetTimer,GetCursorPos,MoveWindow,GetWindowRect,KillTimer,SetCapture,ReleaseCapture_,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 窗口函数
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   RegisterClassEx
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   UpdateWindow
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   GetMenu
           |  |
           |  |---[dll]------   CreateMenu
           |  |
           |  |---[dll]------   CreatePopupMenu
           |  |
           |  |---[dll]------   AppendMenu
           |  |
           |  |---[dll]------   SetMenu
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetSubMenu
           |  |
           |  |---[dll]------   GetMenuItemCount
           |  |
           |  |---[dll]------   GetActiveWindow
           |  |
           |  |---[dll]------   MessageBox
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   KillTimer
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture_

调用的DLL命令:

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA", , 建立窗口　
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 RegisterClassEx, 整数型, "user32", "RegisterClassExA", , 　
    .参数 pcWndClassEx, WNDCLASSEX

.DLL命令 ShowWindow, 整数型, "user32", "ShowWindow", , 控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）　如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由nCmdShow指定的命令
    .参数 nCmdShow, 整数型, , 为窗口指定可视性方面的一个命令。请用下述任何一个常数;SW_HIDE：隐藏窗口，活动状态给令一个窗口;SW_MINIMIZE：最小化窗口，活动状态给令一个窗口;SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOWMAXIMIZED：最大化窗口，并将其激活;SW_SHOWMINIMIZED：最小化窗口，并将其激活;SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口;SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口;SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口;SW_SHOWNORMAL：与SW_RESTORE相同;

.DLL命令 UpdateWindow, 整数型, "user32", "UpdateWindow", , 强制立即更新窗口，窗口中以前屏蔽的所有区域都会重画（在vb里使用：如vb窗体或控件的任何部分需要更新，可考虑直接使用refresh方法　非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 欲更新窗口的句柄;

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄　如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 文本型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;  

.DLL命令 DefWindowProc, 整数型, "user32", "DefWindowProcA", , 调用缺省窗口过程　
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA", , 向窗口发送消息　
    .参数 lpMsg, MSG

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA", , 从线索消息队列中返回一条消息　
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32", "TranslateMessage", , 转换虚拟关键字消息　
    .参数 lpMsg, MSG

.DLL命令 LoadCursor, 整数型, "user32", "LoadCursorA", , 从指定的模块或应用程序实例中载入一个鼠标指针。LoadCursorBynum是LoadCursor函数的类型security声明　执行成功则返回已载入的指针的句柄；零表示失败。在Windows ;    95 和Win16环境中，这个函数只能载入标准尺寸的图标
    .参数 实例句柄, 整数型, , 一个DLL的模块句柄；或者一个实例句柄，指定包含了鼠标指针的可执行程序
    .参数 鼠标指针标识, 整数型, , 作为一个字串，指定欲载入的指针资源。作为一个长整数值，指定欲载入的资源ID；或者设置一个常数，代表某幅固有系统指针。如装载的是一个固有系统指针，注意hInstance参数应设为零。在api32.txt文件中以前缀IDC_ 作为标志;  

.DLL命令 LoadIcon, 整数型, "user32", "LoadIconA", , 从指定的模块或应用程序实例中载入一个图标。其中，LoadIconBynum是LoadIcon函数的类型security声明　执行成功则返回已载入的图标的句柄；零表示失败。会设置GetLastError
    .参数 实例句柄, 整数型
    .参数 图标标识, 整数型

.DLL命令 PostQuitMessage, , "user32", "PostQuitMessage", , 通知WINDOWS线索将中断　
    .参数 nExitCode, 整数型

.DLL命令 GetMenu, 整数型, "user32", "GetMenu"
    .参数 hwnd, 整数型

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

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

.DLL命令 AppendMenu, 整数型, "user32", "AppendMenuA"
    .参数 hMenu, 整数型
    .参数 wFlags, 整数型
    .参数 wIDNewItem, 整数型
    .参数 lpNewItem, 文本型

.DLL命令 SetMenu, 整数型, "user32", "SetMenu"
    .参数 hwnd, 整数型
    .参数 hMenu, 整数型

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

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数　
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetSubMenu, 整数型, "user32", "GetSubMenu"
    .参数 hMenu, 整数型
    .参数 nPos, 整数型

.DLL命令 GetMenuItemCount, 整数型, "user32", "GetMenuItemCount"
    .参数 hMenu, 整数型

.DLL命令 GetActiveWindow, 整数型, , "GetActiveWindow", , 获得活动窗口的句柄  活动窗口的句柄，如没有窗口处于活动状态，则返回零值

.DLL命令 MessageBox, 整数型, , "MessageBoxA", , 建立消息框窗体
    .参数 hwnd, 整数型, , 窗口句柄
    .参数 lpText, 文本型, , 提示信息
    .参数 lpCaption, 文本型, , 窗口标题
    .参数 wType, 整数型, , 按钮

.DLL命令 SetTimer, 整数型, "user32.dll", "SetTimer", , ,
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent
    .参数 时钟周期, 整数型, , uElapse
    .参数 回调函数地址, 整数型, , lpTimerFunc

.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos", , ,
    .参数 位置, 坐标_

.DLL命令 MoveWindow, 整数型, "user32.dll", "MoveWindow", , ,
    .参数 窗口句柄, 整数型, , hwnd，欲移动窗口的句柄
    .参数 左侧位置, 整数型, , x，窗口新的左侧位置
    .参数 顶部位置, 整数型, , y，窗口新的顶部位置
    .参数 新宽度, 整数型, , nWidth，窗口的新宽度
    .参数 高宽度, 整数型, , nHeight，窗口的高宽度
    .参数 是否重画, 整数型, , bRepaint，如窗口此时应重画，则设为TRUE（非零）

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

.DLL命令 KillTimer, 整数型, "user32.dll", "KillTimer", , ,
    .参数 窗口句柄, 整数型, , hwnd
    .参数 事件标识符, 整数型, , nIDEvent

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

.DLL命令 ReleaseCapture_, 整数型, "user32", "ReleaseCapture", , ,