易语言设置窗口动态鼠标指针源码

系统结构:创建指针_api,清除指针_api,SetClassLong_api,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建指针_api
           |  |
           |  |---[dll]------   清除指针_api
           |  |
           |  |---[dll]------   SetClassLong_api

调用的DLL命令:

.DLL命令 创建指针_api, 整数型, "user32", "LoadCursorFromFileA", , 在一个指针文件或一个动画指针文件（扩展名分别是.cur和.ani）的基础上创建一个指针  执行成功则返回指向指针的一个句柄，零表示失败。如果失败，会将GetLastError设置为常数ERROR_FILE_NOT_FOUND
    .参数 文件名, 文本型, , 包含指针的那个文件的名字;

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

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