易语言窗口windows 98风格

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

窗口_回归98风格 (取窗口句柄 ())

.子程序 窗口_回归98风格
.参数 hWnd, 整数型
.局部变量 hRgn, 整数型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 Rc, RECT

GetWindowRect (hWnd, Rc)
hRgn ＝ CreateRectRgn (0, 0, Rc.Right － Rc.Left, Rc.Bottom － Rc.Top)
SetWindowRgn (hWnd, hRgn, 真)
DeleteObject (hRgn)

.版本 2

.DLL命令 CreateRectRgn, 整数型, "gdi32", "CreateRectRgn", , 创建一个由点X1，Y1和X2，Y2描述的矩形区域  执行成功为区域句柄，失败则为零
    .参数 X1, 整数型, , 矩形左上角X，Y坐标
    .参数 Y1, 整数型, , 同上
    .参数 X2, 整数型, , 矩形右下角X，Y坐标;
    .参数 Y2, 整数型, , 同上;

.DLL命令 SetWindowRgn, 整数型, "user32", "SetWindowRgn", , 这是那些很难有人注意到的对编程者来说是个巨大的宝藏的隐含的API函数中的一个。本函数允许您改变窗口的区域。
    .参数 hWnd, 整数型
    .参数 hRgn, 整数型
    .参数 bRedraw, 逻辑型

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

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

@雨落无声