易语言内存加载光标源码

系统结构:内存加载ICON,指针到整数,写内存整数,pWORD,pByte,取变量数据地址_,RtlMoveMemory,GlobalAlloc,GlobalLock,RtlMoveMemory1,CreateIconFromResourceEx,GlobalUnlock,DestroyCursor,SetClassLong,GetClassLong,LoadCursor,

======窗口程序集1
           |  |
           |  |------ 内存加载ICON
           |  |
           |  |------ 指针到整数
           |  |
           |  |------ 写内存整数
           |  |
           |  |------ pWORD
           |  |
           |  |------ pByte
           |  |
           |  |------ 取变量数据地址_
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   RtlMoveMemory1
           |  |
           |  |---[dll]------   CreateIconFromResourceEx
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   DestroyCursor
           |  |
           |  |---[dll]------   SetClassLong
           |  |
           |  |---[dll]------   GetClassLong
           |  |
           |  |---[dll]------   LoadCursor

调用的DLL命令:

.DLL命令 RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节集
    .参数 Length, 整数型

.DLL命令 GlobalAlloc, 整数型, , , , 从堆中分配一定数目的字节数
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalLock, 整数型, , , ,  锁定内存中指定的内存块，并返回一个地址值，令其指向内存块的起始处
    .参数 hMem, 整数型

.DLL命令 RtlMoveMemory1, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 CreateIconFromResourceEx, 整数型, "user32.dll", "CreateIconFromResourceEx"
    .参数 pbIconBits, 整数型
    .参数 cbIconBits, 整数型
    .参数 fIcon, 整数型
    .参数 dwVersion, 整数型
    .参数 cxDesired, 整数型
    .参数 cyDesired, 整数型
    .参数 uFlags, 整数型

.DLL命令 GlobalUnlock, 整数型, , , , 解除锁定的内存块，使指向该内存块的指针无效
    .参数 hMem, 整数型

.DLL命令 DestroyCursor, 整数型, "user32", "DestroyCursor", , 清除指定的鼠标指针，并释放它占用的所有系统资源。不要用这个函数清除随同LoadCursor函数载入的系统指针资源  非零表示成功，零表示失败。
    .参数 hCursor, 整数型, , 欲清除的指针对象的句柄;

.DLL命令 SetClassLong, 整数型, "user32", "SetClassLongA", , , 为窗口类设置一个Long变量条目  由nIndex指定的的类信息的前一个值。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型, , 欲为其设置类信息的那个窗口的句柄
    .参数 nIndex, 整数型, , 参考GetClassLong函数的nIndex参数说明
    .参数 dwNewLong, 整数型, , 类信息的新值，具体取决于nIndex;

.DLL命令 GetClassLong, 整数型, "user32", "GetClassLongA", , , 取得窗口类的一个Long变量条目  由nIndex决定。零表示出错。会设置GetLastError
    .参数 hwnd, 整数型, , 要为其获得类信息的窗口的句柄
    .参数 nIndex, 整数型, , 欲取得的信息，可能是下述任何一个常数：（正数表示一个字节偏移，用于取得在额外字节中为这个类分配的类信息）;GCL_CBCLSEXTRA：这个类结构中分配的额外字节数;GCL_CBWNDEXTRA：窗口结构里为这个类中每个窗口分配的额外字节数;GCL_HBRBACKGROUND：描绘这个类每个窗口的背景时，使用的默认刷子的句柄;GCL_HCURSOR：指向这个类窗口默认光标的句柄;GCL_HICON：这个类中窗口默认图标的句柄;GCL_HICONSM：这个类的小图标;GCL_HMODULE：这个类的模块的句柄;GCL_MENUNAME：为类菜单取得名称或资源ID;GCL_STYLE：这个类的样式;GCL_WNDPROC：取得类窗口函数（该类窗口的默认窗口函数）的地址;

.DLL命令 LoadCursor, 整数型, "user32.dll", "LoadCursorA"
    .参数 hInstance, 整数型, , Long，一个DLL的模块句柄；或者一个实例句柄，指定包含了鼠标指针的可执行程序
    .参数 lpCursorName, 整数型, , 如装载的是一个固有系统指针，注意hInstance参数应设为零。在api32.txt文件中以前缀IDC_ 作为标志