易语言设置边框颜色源码

系统结构:设置边框颜色,UnHook,OnPaint,WindowProc,pGetWindowRectW,pFrameRect,SetWindowLong,CallWindowProc,DefWindowProc,GetProp,RemoveProp,SetProp,GetWindowDC,CreateSolidBrush,FrameRect,DeleteObject,GetWindowRect,ReleaseDC,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======设置边框颜色程序集
           |  |
           |  |------ 设置边框颜色
           |  |
           |  |------ UnHook
           |  |
           |  |------ OnPaint
           |  |
           |  |------ WindowProc
           |  |
           |  |------ pGetWindowRectW
           |  |
           |  |------ pFrameRect
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   RemoveProp
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   ReleaseDC

调用的DLL命令:

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

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 DefWindowProc, 整数型, "user32", "DefWindowProcA"
    .参数 hWnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 GetProp, 整数型, "user32", "GetPropA"
    .参数 hWnd, 整数型
    .参数 lpString, 文本型

.DLL命令 RemoveProp, 整数型, "user32", "RemovePropA"
    .参数 hWnd, 整数型
    .参数 lpString, 文本型

.DLL命令 SetProp, 整数型, "user32", "SetPropA"
    .参数 hWnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 GetWindowDC, 整数型, "user32", "GetWindowDC"
    .参数 hWnd, 整数型

.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush"
    .参数 crColor, 整数型

.DLL命令 FrameRect, 整数型, "user32", "FrameRect"
    .参数 hDC, 整数型
    .参数 lpRect, RECT
    .参数 hBrush, 整数型

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

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect"
    .参数 hWnd, 整数型
    .参数 lpRect, RECT

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC"
    .参数 hWnd, 整数型
    .参数 hDC, 整数型