设置控件边框易语言模块源码

系统结构:设置控件边框,SetWindowLongA,API_取窗口矩形,API_改变窗口,API_取父窗口,API_取环境信息,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======边框程序集
           |  |
           |  |------ 设置控件边框
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   API_取窗口矩形
           |  |
           |  |---[dll]------   API_改变窗口
           |  |
           |  |---[dll]------   API_取父窗口
           |  |
           |  |---[dll]------   API_取环境信息

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, "user32.dll", "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 样式, 整数型, , -16=样式，-20=扩展样式
    .参数 新样式, 整数型

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

.DLL命令 API_改变窗口, 整数型, "user32", "MoveWindow", , 改变指定窗口的位置和大小。顶级窗口可能受最大或最小尺寸的限制，那些尺寸优先于这里设置的参数　非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , 欲移动窗口的句柄
    .参数 左侧位置, 整数型, , 窗口新的左侧位置
    .参数 顶部位置, 整数型, , 窗口新的顶部位置
    .参数 新宽度, 整数型, , 窗口的新宽度
    .参数 高宽度, 整数型, , 窗口的高宽度
    .参数 是否重画, 整数型, , 如窗口此时应重画，则设为TRUE（非零）。FALSE（零）则表明应用程序会自己决定是否重画窗口;

.DLL命令 API_取父窗口, 整数型, "user32", "GetParent", , 判断指定窗口的父窗口　父窗口的句柄。如窗口没有父，或遇到错误，则返回零。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲测试的窗口的句柄;

.DLL命令 API_取环境信息, 整数型, "user32", "GetSystemMetrics", , 返回与windows环境有关的信息　取决于具体的常数索引
    .参数 索引, 整数型