易语言传奇寻路源码

系统结构:寻路,重画参与物,消息处理,取短整数型数组指针,API_复制内存,API_画点,API_取组件场景,置窗口特征,执行窗口程序,API_释放场景,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _地图标签_鼠标左键被按下
           |  |
           |  |------ _地图标签_鼠标位置被移动
           |  |
           |  |------ _地图标签_鼠标左键被放开
           |  |
           |  |------ 寻路
           |  |
           |  |------ 重画参与物
           |  |
           |  |------ _说明按钮_被单击
           |  |
           |  |------ 消息处理
           |  |
           |  |------ _寻路按钮_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取短整数型数组指针
           |  |
           |  |---[dll]------   API_复制内存
           |  |
           |  |---[dll]------   API_画点
           |  |
           |  |---[dll]------   API_取组件场景
           |  |
           |  |---[dll]------   置窗口特征
           |  |
           |  |---[dll]------   执行窗口程序
           |  |
           |  |---[dll]------   API_释放场景

调用的DLL命令:

.DLL命令 取短整数型数组指针, 整数型, "kernel32", "lstrcpynA"
    .参数 lpString1, 短整数型, 传址 数组
    .参数 lpString2, 短整数型, 传址 数组
    .参数 iMaxLength, 整数型

.DLL命令 API_复制内存, 整数型, , "RtlMoveMemory"
    .参数 目标指针
    .参数 源指针
    .参数 长度

.DLL命令 API_画点, 整数型, "gdi32", "SetPixel"
    .参数 窗口句柄, 整数型
    .参数 X, 整数型
    .参数 Y, 整数型
    .参数 颜色, 整数型

.DLL命令 API_取组件场景, 整数型, , "GetWindowDC"
    .参数 窗口句柄, 整数型

.DLL命令 置窗口特征, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 特征索引, 整数型
    .参数 新特征, 子程序指针

.DLL命令 执行窗口程序, 逻辑型, , "CallWindowProcA"
    .参数 窗口程序程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1
    .参数 参数2

.DLL命令 API_释放场景, 整数型, "user32", "ReleaseDC", , 释放由调用GetDC或GetWindowDC函数获取的指定设备场景。它对类或私有设备场景无效（但这样的调用不会造成损害）  执行成功为1，否则为0
    .参数 窗口句柄, 整数型, , 要释放的设备场景相关的窗口句柄
    .参数 设备场景, 整数型, , 要释放的设备场景句柄;