易语言水晶进度条模块源码

系统结构:模块初始化,进度条_消息处理,进度条_On_Paint,进度条_重画,画渐变矩形,创建,置颜色风格,取颜色风格,置标题风格,从句柄创建,子类化,取窗口句柄,是否已创建,移动,取宽度,取高度,取窗口尺寸,显示,隐藏,置位置范围,置当前位置,取位置范围,取最小位置,取最大位置,取当前位置,CRect,ModifyStyle,ModifyExStyle,取控件文本属性,置控件文本属性,删除控件文本属性,文本到指针,申请内存,释放内存,重置内存,锁定内存,解锁内存,ShowWindow,IsWindow,IsWindowEnabled,GetWindowRect,GetParent,ScreenToClient,SetWindowPos,CreateWindowEx,GetProp,SetProp,GetModuleHandle,SetWindowLong,CallWindowProc,GetClassName,GetDC,SetBkMode,CreateCompatibleBitmap,CreateCompatibleDC,DeleteDC,DeleteObject,ReleaseDC,SelectObject,BeginPaint,EndPaint,DrawText,BitBlt,GradientFill,SendMessage,SendMessage_传址1,SendMessage_传址2,CreateSolidBrush,FrameRect,GetWindowDC,GetWindowLong,SetPixel,GetBkColor,GetSysColor,GetSysColorBrush,GlobalAlloc,GlobalReAlloc,GlobalLock,GlobalUnlock,GlobalFree,RtlMoveMemory_Str1,RtlMoveMemory_Str2,CreateFont,OffsetRect,SetTextColor,GetClientRect,RemoveProp,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 模块初始化
           |  |
           |  |------ 进度条_消息处理
           |  |
           |  |------ 进度条_On_Paint
           |  |
           |  |------ 进度条_重画
           |  |
           |  |------ 画渐变矩形
           |  |
           |  |
======水晶进度条
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建
           |  |
           |  |------ 置颜色风格
           |  |
           |  |------ 取颜色风格
           |  |
           |  |------ 置标题风格
           |  |
           |  |------ 从句柄创建
           |  |
           |  |------ 子类化
           |  |
           |  |------ 取窗口句柄
           |  |
           |  |------ 是否已创建
           |  |
           |  |------ 移动
           |  |
           |  |------ 取宽度
           |  |
           |  |------ 取高度
           |  |
           |  |------ 取窗口尺寸
           |  |
           |  |------ 显示
           |  |
           |  |------ 隐藏
           |  |
           |  |------ 置位置范围
           |  |
           |  |------ 置当前位置
           |  |
           |  |------ 取位置范围
           |  |
           |  |------ 取最小位置
           |  |
           |  |------ 取最大位置
           |  |
           |  |------ 取当前位置
           |  |
           |  |
======辅助程序集
           |  |
           |  |------ CRect
           |  |
           |  |------ ModifyStyle
           |  |
           |  |------ ModifyExStyle
           |  |
           |  |------ 取控件文本属性
           |  |
           |  |------ 置控件文本属性
           |  |
           |  |------ 删除控件文本属性
           |  |
           |  |------ 文本到指针
           |  |
           |  |------ 申请内存
           |  |
           |  |------ 释放内存
           |  |
           |  |------ 重置内存
           |  |
           |  |------ 锁定内存
           |  |
           |  |------ 解锁内存
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   IsWindowEnabled
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   ScreenToClient
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   GetProp
           |  |
           |  |---[dll]------   SetProp
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   SetBkMode
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   DeleteDC
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   BeginPaint
           |  |
           |  |---[dll]------   EndPaint
           |  |
           |  |---[dll]------   DrawText
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   GradientFill
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SendMessage_传址1
           |  |
           |  |---[dll]------   SendMessage_传址2
           |  |
           |  |---[dll]------   CreateSolidBrush
           |  |
           |  |---[dll]------   FrameRect
           |  |
           |  |---[dll]------   GetWindowDC
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   SetPixel
           |  |
           |  |---[dll]------   GetBkColor
           |  |
           |  |---[dll]------   GetSysColor
           |  |
           |  |---[dll]------   GetSysColorBrush
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalReAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   RtlMoveMemory_Str1
           |  |
           |  |---[dll]------   RtlMoveMemory_Str2
           |  |
           |  |---[dll]------   CreateFont
           |  |
           |  |---[dll]------   OffsetRect
           |  |
           |  |---[dll]------   SetTextColor
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   RemoveProp

调用的DLL命令:

.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命令 IsWindow, 整数型, "user32", "IsWindow", , 判断一个窗口句柄是否有效　非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 待检查窗口的句柄;  

.DLL命令 IsWindowEnabled, 整数型, "user32", "IsWindowEnabled", , 判断窗口是否处于活动状态（在vb里使用：针对vb窗体和控件，请用enabled属性）　非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 待检测窗口的句柄;

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;  

.DLL命令 GetParent, 整数型, , "GetParent"
    .参数 Hwnd, 整数型

.DLL命令 ScreenToClient, 整数型, "user32", "ScreenToClient", , 判断屏幕上一个指定点的客户区坐标　非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 一个窗口的句柄，该窗口定义了要使用的客户区坐标系统
    .参数 lpPoint, POINT, , POINTAPI，屏幕坐标系统中包含了屏幕点的结构。这个函数会随同相应的客户区坐标（由hwnd决定）载入结构;

.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos", , 这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 欲定位的窗口
    .参数 hWndInsertAfter, 整数型, , 窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：;HWND_BOTTOM：将窗口置于窗口列表底部;HWND_TOP：将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序;HWND_TOPMOST：将窗口置于列表顶部，并位于任何最顶部窗口的前面;HWND_NOTOPMOST：将窗口置于列表顶部，并位于任何最顶部窗口的后面
    .参数 x, 整数型, , 窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
    .参数 y, 整数型, , 窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
    .参数 cx, 整数型, , 指定新的窗口宽度
    .参数 cy, 整数型
    .参数 wFlags, 整数型, , 包含了旗标的一个整数;SWP_DRAWFRAME：围绕窗口画一个框;SWP_HIDEWINDOW：隐藏窗口;SWP_NOACTIVATE：不激活窗口;SWP_NOMOVE：保持当前位置（x和y设定将被忽略）;SWP_NOREDRAW：窗口不自动重画;SWP_NOSIZE：保持当前大小（cx和cy会被忽略）;SWP_NOZORDER：保持窗口在列表的当前位置（hWndInsertAfter将被忽略）;SWP_SHOWWINDOW：显示窗口;SWP_FRAMECHANGED：强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变;  

.DLL命令 CreateWindowEx, 整数型, "user32.dll", "CreateWindowExA"
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型, , 窗口实例的类的名字
    .参数 lpWindowName, 文本型, , 窗口标题名
    .参数 dwStyle, 整数型, , 新创建的窗口的样式
    .参数 X, 整数型, , 窗口左上角的横坐标
    .参数 Y, 整数型, , 窗口左上角的纵坐标
    .参数 nWidth, 整数型, , 窗口的宽度
    .参数 nHeight, 整数型, , 窗口的高度
    .参数 hWndParent, 整数型, , 该窗口的父窗口的句柄
    .参数 hMenu, 整数型, , 窗口主菜单句柄
    .参数 hInstance, 整数型, , 创建窗口的应用程序当前句柄
    .参数 lpParam, 整数型, , 指向一个传递给窗口的参数值的指针

.DLL命令 GetProp, 整数型, "user32", "GetPropA", , 从窗口属性表列中返回数据句柄　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

.DLL命令 SetProp, 整数型, "user32", "SetPropA", , 增加或修改属性列项　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

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

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息　指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

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

.DLL命令 GetClassName, 整数型, "user32", "GetClassNameA", , 为指定的窗口取得类名　以字节数表示的类名长度；排除最后的空中止字符。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型, , 欲获得类名的那个窗口的句柄
    .参数 lpClassName, 文本型, , 随同类名载入的缓冲区。预先至少必须分配nMaxCount+1个字符
    .参数 nMaxCount, 整数型, , 由lpClassName提供的缓冲区长度;

.DLL命令 GetDC, 整数型, "user32", "GetDC", , 获取指定窗口的设备场景　指定窗口的设备场景句柄，出错则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口的句柄。若为0，则要获取整个屏幕的DC;  

.DLL命令 SetBkMode, 整数型, "gdi32", "SetBkMode", , 指定阴影刷子、虚线画笔以及字符中的空隙的填充方式　前一个背景模式的值
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 nBkMode, 整数型, , 下述常数之一：;OPAQUE：用当前的背景色填充虚线画笔、阴影刷子以及字符的空隙;TRANSPARENT：透明处理，即不作上述填充;  

.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32", "CreateCompatibleBitmap", , 创建一幅与设备有关位图，它与指定的设备场景兼容　执行成功返回位图句柄，零表示失败
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 nWidth, 整数型, , 位图宽度，以像素为单位
    .参数 nHeight, 整数型, , 位图高度，以像素为单位;  

.DLL命令 CreateCompatibleDC, 整数型, "gdi32", "CreateCompatibleDC", , 创建一个与特定设备场景一致的内存设备场景　新设备场景句柄，若出错则为零
    .参数 hdc, 整数型, , 设备场景句柄。新的设备场景将与它一致。也可能为0以创建一个与屏幕一致的设备场景;  

.DLL命令 DeleteDC, 整数型, "gdi32", "DeleteDC", , 删除专用设备场景或信息场景，释放所有相关窗口资源。不要将它用于GetDC函数取回的设备场景　执行成功则为非零，失败则为零
    .参数 hdc, 整数型, , 将要删除的设备场景  在vb里使用不要将它用于由vb hdc属性获取的设备场景句柄;

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放　非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄;  

.DLL命令 ReleaseDC, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）　执行成功为1，否则为0
    .参数 hwnd, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 hdc, 整数型, , 要释放的设备场景句柄;  

.DLL命令 SelectObject, 整数型, "gdi32", "SelectObject", , 每个设备场景都可能有选入其中的图形对象。其中包括位图、刷子、字体、画笔以及区域等等。一次选入设备场景的只能有一个对象。选定的对象会在设备场景的绘图操作中使用。例如，当前选定的画笔决定了在设备场景中描绘的线段颜色及样式　与以前选入设备场景的相同hObject类型的一个对象的句柄，零表示出错。如选定的对象是一个区域（Region），结果就是下列常数之一：SIMPLEREGION， ;    COMPLEXREGION 或 NULLREGION 对区域进行描述， GDI_ERROR 表示出错
    .参数 hdc, 整数型, , 一个设备场景的句柄
    .参数 hObject, 整数型, , 一个画笔、位图、刷子、字体或区域的句柄;  

.DLL命令 BeginPaint, 整数型, "user32", "BeginPaint", , 准备一个画图窗　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 EndPaint, 整数型, "user32", "EndPaint", , 在指定窗口中标记图画结尾标志　
    .参数 hwnd, 整数型
    .参数 lpPaint, PAINTSTRUCT

.DLL命令 DrawText, 整数型, "user32", "DrawTextA", , 将文本描绘到指定的矩形中　描绘文字的高度
    .参数 hdc, 整数型, , 欲在其中显示文字的一个设备场景的句柄
    .参数 lpStr, 文本型, , 欲描绘的文本字串
    .参数 nCount, 整数型, , 欲描绘的字符数量。如果要描绘整个字串（直到空中止符），则可将这个参数设为-1
    .参数 lpRect, RECT, , RECT，指定用于绘图的一个格式化矩形（采用逻辑坐标）
    .参数 wFormat, 整数型, , 一个标志位数组，决定了以何种形式执行绘图。参考下面总结的常数类型列表标志常数说明DT_BOTTOM必须同时指定DT_SINGLE。指示文本对齐格式化矩形的底边DT_CALCRECT象下面这样计算格式化矩形：多行绘图时矩形的底边根据需要进行延展，以便容下所有文字；单行绘图时，延展矩形的右侧。不描绘文字。由lpRect参数指定的矩形会载入计算出来的值DT_CENTER文本垂直居中DT_EXPANDTABS描绘文字的时候，对制表站进行扩展。默认的制表站间距是8个字符。但是，可用DT_TABSTOP标志改变这项设定DT_EXTERNALLEADING计算文本行高度的时候，使用当前字体的外部间距属性（the external leading attribute）DT_LEFT文本左对齐DT_NOCLIP描绘文字时不剪切到指定的矩形DT_NOPREFIX通常，函数认为 & 字符表示应为下一个字符加上下划线。该标志禁止这种行为DT_RIGHT文本右对齐DT_SINGLELINE只画单行DT_TABSTOP指定新的制表站间距，采用这个整数的高8位DT_TOP必须同时指定DT_SINGLE。指示文本对齐格式化矩形的顶部DT_VCENTER必须同时指定DT_SINGLE。指示文本对齐格式化矩形的中部DT_WORDBREAK进行自动换行。如用SetTextAlign函数设置了TA_UPDATECP标志，这里的设置则无效;

.DLL命令 BitBlt, 整数型, "gdi32", "BitBlt", , 将一幅位图从一个设备场景复制到另一个。源和目标DC相互间必须兼容　非零表示成功，零表示失败。会设置GetLastError
    .参数 hDestDC, 整数型, , 目标设备场景
    .参数 x, 整数型, , 对目标DC中目标矩形左上角位置进行描述的那个点。用目标DC的逻辑坐标表示
    .参数 y, 整数型, , 同上
    .参数 nWidth, 整数型, , 欲传输图象的宽度和高度
    .参数 nHeight, 整数型, , 同上
    .参数 hSrcDC, 整数型, , 源设备场景。如光栅运算未指定源，则应设为0
    .参数 xSrc, 整数型, , 对源DC中源矩形左上角位置进行描述的那个点。用源DC的逻辑坐标表示
    .参数 ySrc, 整数型, , 同上
    .参数 dwRop, 整数型, , 传输过程要执行的光栅运算;  

.DLL命令 GradientFill, 逻辑型, "Msimg32.dll", "GradientFill"
    .参数 hdc, 整数型
    .参数 pVertex, TRIVERTEX, 传址 数组, 未知类型：PTRIVERTEX。
    .参数 dwNumVertex, 整数型
    .参数 pMesh, GRADIENT_RECT, 传址
    .参数 dwNumMesh, 整数型
    .参数 dwMode, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

.DLL命令 SendMessage_传址1, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, 传址, 具体取决于消息;

.DLL命令 SendMessage_传址2, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式　由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, 传址, 具体取决于消息
    .参数 lParam, 整数型, 传址, 具体取决于消息;

.DLL命令 CreateSolidBrush, 整数型, "gdi32", "CreateSolidBrush", , 用纯色创建一个刷子　如执行成功，返回新刷子的一个句柄；否则返回零
    .参数 crColor, 整数型, , 数字的RGB彩色;  

.DLL命令 FrameRect, 整数型, "user32", "FrameRect", , 用指定的刷子围绕一个矩形画一个边框（组成一个帧），边框的宽度是一个逻辑单位　非零表示成功，零表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 lpRect, RECT, , RECT，对要描绘的边框进行描述的一个矩形。这等效于将画笔设成一个单位的宽度，然后用矩形函数画出一个矩形
    .参数 hBrush, 整数型, , 欲使用的刷子的句柄;  

.DLL命令 GetWindowDC, 整数型, "user32", "GetWindowDC", , 获取整个窗口（包括边框、滚动条、标题栏、菜单等）的设备场景　执行成功为窗口设备场景，失败则为0
    .参数 hwnd, 整数型, , 将获取其设备场景的窗口;  

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息　由nIndex决定。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 nIndex, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 SetPixel, 整数型, "gdi32", "SetPixel", , 在指定的设备场景中设置一个像素的RGB值　指定点的实际RGB颜色。如设备不支持指定的准确颜色，则返回的值会与crColor有所不同。如指定的点不能设置，则会返回-1（例如，指定的点可能位于设备场景剪切区外面）。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 x, 整数型, , 要设置的点，用逻辑坐标表示
    .参数 y, 整数型, , 同上
    .参数 crColor, 整数型, , 指定像素的新RGB颜色;  

.DLL命令 GetBkColor, 整数型, "gdi32", "GetBkColor", , 取得指定设备场景当前的背景颜色　当前背景色的RGB颜色值
    .参数 hdc, 整数型, , 欲查询背景颜色的一个设备场景;

.DLL命令 GetSysColor, 整数型, "user32", "GetSysColor", , 判断指定windows显示对象的颜色　指定对象的RGB颜色
    .参数 nIndex, 整数型

.DLL命令 GetSysColorBrush, 整数型, "user32", "GetSysColorBrush", , 为任何一种标准系统颜色取得一个刷子　针对一种系统颜色的一个固有刷子的句柄。零表示出错
    .参数 nIndex, 整数型, , 系统颜色索引，也即带有COLOR_前缀的某个常数。参考GetSysColor;  

.DLL命令 GlobalAlloc, 整数型
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalReAlloc, 整数型
    .参数 hMem, 整数型
    .参数 dwBytes, 整数型
    .参数 wFlags, 整数型

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

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

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

.DLL命令 RtlMoveMemory_Str1, , , "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 文本型
    .参数 Length, 整数型

.DLL命令 RtlMoveMemory_Str2, , , "RtlMoveMemory"
    .参数 Destination, 文本型
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 CreateFont, 整数型, "gdi32", "CreateFontA", , 用指定的属性创建一种逻辑字体　执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 H, 整数型, , IfHeight
    .参数 W, 整数型, , IfWeight
    .参数 E, 整数型, , IfEscapement
    .参数 O, 整数型, , IfOrientation
    .参数 W, 整数型
    .参数 I, 整数型, , IfItalic
    .参数 u, 整数型, , IfUnderline
    .参数 S, 整数型, , IfStrikeOut
    .参数 C, 整数型, , IfCharSet
    .参数 OP, 整数型, , IfOutputPrecision
    .参数 CP, 整数型, , IfClipPrecision
    .参数 Q, 整数型, , IfQuality
    .参数 PAF, 整数型, , IfPitchAndFamily
    .参数 F, 文本型, , IfFaceName;  

.DLL命令 OffsetRect, 整数型, "user32", "OffsetRect", , 该函数通过应用一个指定的偏移，从而让矩形移动起来。x会添加到右侧和左侧区域。y添加到顶部和底部区域。偏移方向则取决于参数是正数还是负数，以及采用的是什么坐标系统　非零表示成功，零表示失败。会设置GetLastError
    .参数 lpRect, RECT, , RECT，欲移动的矩形
    .参数 x, 整数型, , 水平偏移量
    .参数 y, 整数型, , 垂直偏移量;

.DLL命令 SetTextColor, 整数型, "gdi32", "SetTextColor", , 设置当前文本颜色。这种颜色也称为“前景色”　文本色的前一个RGB颜色设定。CLR_INVALID表示失败。会设置GetLastError
    .参数 hdc, 整数型, , 设备场景的句柄
    .参数 crColor, 整数型, , 新的文本色在VB里使用如改变了这个设置，注意恢复VB窗体或控件原始的文本颜色;

.DLL命令 GetClientRect, 整数型, "user32", "GetClientRect", , 返回指定窗口客户区矩形的大小　非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 欲计算大小的目标窗口
    .参数 lpRect, RECT, , RECT，指定一个矩形，用客户区域的大小载入（以像素为单位）;  

.DLL命令 RemoveProp, 整数型, "user32", "RemovePropA", , 删除属性列入口　
    .参数 hwnd, 整数型
    .参数 lpString, 文本型