易语言简单的快照源码

系统结构:快照_,CreateDIBSection,CreateCompatibleDC,SelectObject,BitBlt,GetDC,CopyMemory_RECT_int,CopyMemory_bi_int,CopyMemory_bi_字节集,CopyMemory_字节集_bi,sizeof_bi,StretchDIBits,GetDeviceCaps,CreateCompatibleBitmap,DeleteObject,GetDIBits,GetDIBColorTable,ReleaseDC,DeleteDC,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 快照_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateDIBSection
           |  |
           |  |---[dll]------   CreateCompatibleDC
           |  |
           |  |---[dll]------   SelectObject
           |  |
           |  |---[dll]------   BitBlt
           |  |
           |  |---[dll]------   GetDC
           |  |
           |  |---[dll]------   CopyMemory_RECT_int
           |  |
           |  |---[dll]------   CopyMemory_bi_int
           |  |
           |  |---[dll]------   CopyMemory_bi_字节集
           |  |
           |  |---[dll]------   CopyMemory_字节集_bi
           |  |
           |  |---[dll]------   sizeof_bi
           |  |
           |  |---[dll]------   StretchDIBits
           |  |
           |  |---[dll]------   GetDeviceCaps
           |  |
           |  |---[dll]------   CreateCompatibleBitmap
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   GetDIBits
           |  |
           |  |---[dll]------   GetDIBColorTable
           |  |
           |  |---[dll]------   ReleaseDC
           |  |
           |  |---[dll]------   DeleteDC

调用的DLL命令:

.DLL命令 CreateDIBSection, 整数型, "gdi32.dll", "CreateDIBSection"
    .参数 hdc, 整数型
    .参数 bi, 字节集, 传址, BITMAPINFO
    .参数 iUsage, 整数型
    .参数 ppvBits, 整数型, 传址
    .参数 hSection, 整数型
    .参数 dwOffset, 整数型

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

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

.DLL命令 BitBlt, 逻辑型, "gdi32.dll", "BitBlt"
    .参数 hdcDest, 整数型
    .参数 nXDest, 整数型
    .参数 nYDest, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hdcSrc, 整数型
    .参数 nXSrc, 整数型
    .参数 nYSrc, 整数型
    .参数 dwRop, 整数型

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

.DLL命令 CopyMemory_RECT_int, , "kernel32", "RtlMoveMemory", , ,
    .参数 pDes, RECT, 传址
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 CopyMemory_bi_int, , "kernel32", "RtlMoveMemory", , ,
    .参数 pDes, BITMAPINFO, 传址
    .参数 pSrc, 整数型
    .参数 ByteLen, 整数型

.DLL命令 CopyMemory_bi_字节集, , "kernel32", "RtlMoveMemory", , ,
    .参数 pDes, BITMAPINFO, 传址
    .参数 pSrc, 字节集
    .参数 ByteLen, 整数型

.DLL命令 CopyMemory_字节集_bi, , "kernel32", "RtlMoveMemory", , ,
    .参数 pDes, 字节集, 传址
    .参数 pSrc, BITMAPINFO
    .参数 ByteLen, 整数型

.DLL命令 sizeof_bi, 整数型, "kernel32", "LocalSize", , , LocalSize返回本地内存块大小
    .参数 hMem, BITMAPINFO

.DLL命令 StretchDIBits, 整数型, "Gdi32.dll", "StretchDIBits"
    .参数 hdc, 整数型
    .参数 XDest, 整数型
    .参数 YDest, 整数型
    .参数 nDestWidth, 整数型
    .参数 nDestHeight, 整数型
    .参数 XSrc, 整数型
    .参数 YSrc, 整数型
    .参数 nSrcWidth, 整数型
    .参数 nSrcHeight, 整数型
    .参数 lpBits, 字节集
    .参数 lpBitsInfo, 字节集, 传址
    .参数 iUsage, 整数型
    .参数 dwRop, 整数型

.DLL命令 GetDeviceCaps, 整数型, "gdi32", "GetDeviceCaps", , 根据指定设备场景代表的设备的功能返回信息  参见GetDeviceCaps索引表
    .参数 hdc, 整数型, , 要查询其设备的信息的设备场景
    .参数 nIndex, 整数型, , 根据GetDeviceCaps索引表所示常数确定返回信息的类型;

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

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

.DLL命令 GetDIBits, 整数型, "gdi32", "GetDIBits", , 将来自一幅位图的二进制位复制到一幅与设备无关的位图里  非零表示成功，零表示失败。在Windows 95中，返回值是返回的扫描线数量
    .参数 aHDC, 整数型, , 定义了与设备有关位图hBitmap的配置信息的一个设备场景的句柄
    .参数 hBitmap, 整数型, , 源位图的句柄。绝对不能将这幅位图选入设备场景
    .参数 nStartScan, 整数型, , 欲复制到DIB中的第一条扫描线的编号
    .参数 nNumScans, 整数型, , 欲复制的扫描线数量
    .参数 lpBits, 整数型, , 指向一个缓冲区的指针。这个缓冲区将用于装载采用DIB格式的信息，但不取回数据（用ByVal传递零值）
    .参数 lpBI, BITMAPINFO, , BITMAPINFO，对lpBits DIB的格式及颜色进行说明的一个结构。在BITMAPINFOHEADER结构中，从biSize到biCompression之间的所有字段都必须初始化
    .参数 wUsage, 整数型, , 下述常数之一：;DIB_PAL_COLORS：在颜色表中装载一个16位所以数组，它们与当前选定的调色板有关;DIB_RGB_COLORS：在颜色表中装载RGB颜色;

.DLL命令 GetDIBColorTable, 整数型, "gdi32", "GetDIBColorTable", , 从选入设备场景的DIBSection中取得颜色表信息  取回的颜色条目数量，零表示失败。会设置GetLastError
    .参数 hDC, 整数型, , 已选入了一个DIBSection对象的设备场景
    .参数 un1, 整数型, , 颜色表中欲取回的第一个条目的索引
    .参数 un2, 整数型, , 欲取回的条目数量
    .参数 pRGBQuad, 整数型, 传址, RGBQUAD，这个结构数组用于装载颜色表信息的第一个条目;

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

.DLL命令 DeleteDC, 逻辑型, "Gdi32.dll", "DeleteDC"
    .参数 hDC, 整数型