易语言窗口换肤模块源码

系统结构:JSkin_加载,调整按钮位置,更改窗体颜色,更改窗体背景图片,添加标签,载入按钮图像,WndProc,初始化按钮图片,调整控制按钮坐标,取窗口大小,置窗口圆角,添加按钮,画窗体背景,画普通按钮,JSkin_卸载,透明,画控制按钮,判断是否在控制按钮上,判断是否在普通按钮上,取高位,取低位,八方向调整大小,RanNumMsgBox,AboutMsgBox,SetWindowLong,CopyMemory_MINMAXINFO,CopyMemory_MINMAXINFO2,AlphaBlend,SetWindowLong_Lng,TrackMouseEvent,CallWindowProc,BeginPaint,EndPaint,CreateRoundRectRgn,SetWindowRgn,GetDC,ReleaseDC,FrameRect,CreateSolidBrush,GetClientRect,CreateCompatibleDC,DeleteDC,BitBlt,SendMessage,CreateCompatibleBitmap,SelectObject,DeleteObject,SetCursor,LoadCursor,ShowWindow,GetWindowRect,FindWindow,ReleaseCapture,SetCapture,DrawText,SetBkMode,CreateFont,SetWindowPos,GetWindowTextLength,GetWindowText,GetWindowLong,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======窗体
           |  |
           |  |------ JSkin_加载
           |  |
           |  |------ 调整按钮位置
           |  |
           |  |------ 更改窗体颜色
           |  |
           |  |------ 更改窗体背景图片
           |  |
           |  |------ 添加标签
           |  |
           |  |------ 载入按钮图像
           |  |
           |  |------ WndProc
           |  |
           |  |------ 初始化按钮图片
           |  |
           |  |------ 调整控制按钮坐标
           |  |
           |  |------ 取窗口大小
           |  |
           |  |------ 置窗口圆角
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 添加按钮
           |  |
           |  |------ 画窗体背景
           |  |
           |  |------ 画普通按钮
           |  |
           |  |------ JSkin_卸载
           |  |
           |  |------ 透明
           |  |
           |  |------ 画控制按钮
           |  |
           |  |------ 判断是否在控制按钮上
           |  |
           |  |------ 判断是否在普通按钮上
           |  |
           |  |------ 取高位
           |  |
           |  |------ 取低位
           |  |
           |  |------ 八方向调整大小
           |  |
           |  |
======按钮
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ RanNumMsgBox
           |  |
           |  |------ AboutMsgBox
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CopyMemory_MINMAXINFO
           |  |
           |  |---[dll]------   CopyMemory_MINMAXINFO2
           |  |
           |  |---[dll]------   AlphaBlend
           |  |
           |  |---[dll]------   SetWindowLong_Lng
           |  |
           |  |---[dll]------   TrackMouseEvent
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   CreateRoundRectRgn
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   SetCursor
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   DrawText
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   CreateFont
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   GetWindowTextLength
           |  |
           |  |---[dll]------   GetWindowText
           |  |
           |  |---[dll]------   GetWindowLong

  

调用的DLL命令:

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 子程序指针

.DLL命令 CopyMemory_MINMAXINFO, 整数型, "kernel32", "RtlMoveMemory"
    .参数 Destination, MINMAXINFO
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 CopyMemory_MINMAXINFO2, 整数型, "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, MINMAXINFO
    .参数 Length, 整数型

.DLL命令 AlphaBlend, 整数型, "msimg32.dll", "AlphaBlend"
    .参数 hdcDest
    .参数 nXoriginDest
    .参数 nYOriginDest
    .参数 nWidthDest
    .参数 hHeghtdest
    .参数 hdcSrc
    .参数 nXOriginSrc
    .参数 nYOriginSrc
    .参数 nWidthSrc
    .参数 nHeightSrc
    .参数 blendFunction

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

.DLL命令 TrackMouseEvent, 整数型, "comctl32.dll", "_TrackMouseEvent"
    .参数 lpEventTrack, TRACKMOUSEEVENTTYPE

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

.DLL命令 BeginPaint, 整数型, "user32", "BeginPaint"
    .参数 hWnd, 整数型
    .参数 PS, PAINTSTRUCT

.DLL命令 EndPaint, 整数型, "user32", "EndPaint"
    .参数 hWnd, 整数型
    .参数 PS, PAINTSTRUCT

.DLL命令 CreateRoundRectRgn, 整数型, "gdi32", "CreateRoundRectRgn"
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 wid, 整数型
    .参数 hei, 整数型
    .参数 eWid, 整数型
    .参数 eHei, 整数型

.DLL命令 SetWindowRgn, 整数型, "user32", "SetWindowRgn"
    .参数 hWnd, 整数型
    .参数 hRgn, 整数型
    .参数 bRedraw, 逻辑型

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

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

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

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

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

.DLL命令 CreateCompatibleDC, 整数型, "gdi32", "CreateCompatibleDC"
    .参数 hDC, 整数型

.DLL命令 DeleteDC, 整数型, "gdi32", "DeleteDC"
    .参数 hDC, 整数型

.DLL命令 BitBlt, 整数型, "gdi32", "BitBlt"
    .参数 hDestDC, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 wid, 整数型
    .参数 hei, 整数型
    .参数 hSrcDC, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 dwRop, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hWnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap"
    .参数 hDC, 整数型
    .参数 Width, 整数型
    .参数 Height, 整数型

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

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

.DLL命令 SetCursor, 整数型, "user32", "SetCursor", , 将指定的鼠标指针设为当前指针　前一个指针的值
    .参数 指针句柄, 整数型, , 要设为当前指针的一个指针的句柄。如设为零，表示不显示任何指针;  

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

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

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

.DLL命令 FindWindow, 整数型, "user32", "FindWindowA"
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型

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

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

.DLL命令 DrawText, 整数型, "user32", "DrawTextA"
    .参数 hDC, 整数型
    .参数 lpStr, 文本型
    .参数 nCount, 整数型
    .参数 lpRect, RECT
    .参数 wFormat, 整数型

.DLL命令 SetBkMode, 整数型, "gdi32", "SetBkMode"
    .参数 hDC, 整数型
    .参数 nBkMode, 整数型

.DLL命令 CreateFont, 整数型, "gdi32", "CreateFontA"
    .参数 H, 整数型
    .参数 W, 整数型
    .参数 E, 整数型
    .参数 O, 整数型
    .参数 W, 整数型
    .参数 I, 整数型
    .参数 U, 整数型
    .参数 S, 整数型
    .参数 C, 整数型
    .参数 OP, 整数型
    .参数 CP, 整数型
    .参数 Q, 整数型
    .参数 PAF, 整数型
    .参数 F, 文本型

.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos"
    .参数 hWnd, 整数型
    .参数 hWndInsertAfter, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 cx, 整数型
    .参数 cy, 整数型
    .参数 wFlags, 整数型

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

.DLL命令 GetWindowText, 整数型, "user32", "GetWindowTextA"
    .参数 hWnd, 整数型
    .参数 lpString, 文本型
    .参数 cch, 整数型

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