//消息过程功能
功能 扩展库_消息过程(消息,w参数,l参数)
变量 路径
路径 = 获取资源路径("rc:0.bmp")
如果(消息 == 20)
变量 位图句柄,内存句柄,保留句柄,宽,高,窗口x,窗口y,窗口宽,窗口高
窗口获取客户区(窗口获取自我句柄(),窗口x,窗口y,窗口宽,窗口高)
位图句柄=动态库调用("user32.dll","int","LoadImageA","int",0,"char *",路径,"int",0,"int",0,"int",0,"int",#10)
调试输出(位图句柄)
如果(位图句柄!=0)
内存句柄 = 动态库调用("gdi32.dll","int","CreateCompatibleDC","int",w参数)
保留句柄 = 动态库调用("gdi32.dll","int","SelectObject","int",内存句柄,"int",位图句柄)//将场景载入内存
获取bmp图片大小(路径,宽,高)
动态库调用("gdi32.dll","int","StretchBlt","int",w参数,"int",0,"int",0,"int",窗口宽,"int",窗口高,"int",内存句柄,"int",0,"int",0,"int",宽,"int",高,"int",#00CC0020)
//动态库调用("gdi32.dll","int","BitBlt","int",w参数,"int",0,"int",0,"int",窗口宽,"int",窗口高,"int",内存句柄,"int",0,"int",0,"int",#00CC0020)
动态库调用("gdi32.dll","int","SelectObject","int",内存句柄,"int",保留句柄)//将场景载入内存
调试输出(获取错误信息(1))
动态库调用("gdi32.dll","int","DeleteDC","int",内存句柄)
调试输出(获取错误信息(1))
动态库调用("gdi32.dll","int","DeleteObject","int",位图句柄)
调试输出(获取错误信息(1))
返回 真
结束
返回 假
结束
结束
|