精易模块的窗口_发送拖放消息 - 精易论坛

子程序名	返回值类型	公开	备注
窗口_发送拖放消息	逻辑型		向指定窗口发送拖拽消息_该函数为ANSIC文件名使用；不支持拖放对象
参数名	类型	参考	可空	数组	备注
参_句柄	整数型				接受拖拽消息的句柄
参_路径	文本型				需要拖放的文件路径

变量名	类型	静态	数组	备注
局_文件路径	文本型
局_窗口句柄	整数型
局_写入数据	字节集
局_数据指针	整数型
局_进程句柄	整数型
局_进程ID	整数型
局_写入大小	整数型

局_窗口句柄＝参_句柄
GetWindowThreadProcessId (局_窗口句柄, 局_进程ID)
局_文件路径＝参_路径
局_写入数据＝到字节集 (20) ＋取空白字节集 (16) ＋到字节集 (局_文件路径)
局_进程句柄＝ OpenProcess (位或 (8, 32), 0, 局_进程ID)

如果真 (局_进程句柄＝ 0)

调试输出 (“打开进程失败”)

返回 (假)
局_数据指针＝ VirtualAllocEx (局_进程句柄, 0, 取文本长度 (局_文件路径) ＋ 20, 4096, 4)

如果真 (局_数据指针＝ 0)

调试输出 (“局_数据指针申请内存失败”)

返回 (假)
WriteProcessMemory_整数5 (局_进程句柄, 局_数据指针, lstrcpyn_字节集 (局_写入数据, 局_写入数据, 0), 取文本长度 (局_文件路径) ＋ 20, 局_写入大小)

如果真 (局_写入大小 ≠ 取文本长度 (局_文件路径) ＋ 20)

返回 (假)
SendMessageA (局_窗口句柄, 563, 局_数据指针, 0)
WaitForSingleObject (局_窗口句柄, 5000)
WaitForSingleObject (局_进程句柄, 5000)
VirtualFreeEx (局_窗口句柄, 局_数据指针, 0, #MEM_RELEASE )
VirtualFreeEx (局_进程句柄, 局_数据指针, 0, #MEM_RELEASE )
返回 (真)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br />
.支持库 spec<br />
<br />
.子程序 窗口_发送拖放消息, 逻辑型, 公开, 向指定窗口发送拖拽消息_该函数为ANSIC文件名使用；不支持拖放对象<br />
.参数 参_句柄, 整数型, , 接受拖拽消息的句柄<br />
.参数 参_路径, 文本型, , 需要拖放的文件路径<br />
.局部变量 局_文件路径, 文本型<br />
.局部变量 局_窗口句柄, 整数型<br />
.局部变量 局_写入数据, 字节集<br />
.局部变量 局_数据指针, 整数型<br />
.局部变量 局_进程句柄, 整数型<br />
.局部变量 局_进程ID, 整数型<br />
.局部变量 局_写入大小, 整数型<br />
<br />
局_窗口句柄 ＝ 参_句柄<br />
GetWindowThreadProcessId (局_窗口句柄, 局_进程ID)<br />
局_文件路径 ＝ 参_路径<br />
局_写入数据 ＝ 到字节集 (20) ＋ 取空白字节集 (16) ＋ 到字节集 (局_文件路径)<br />
局_进程句柄 ＝ OpenProcess (位或 (8, 32), 0, 局_进程ID)<br />
.如果真 (局_进程句柄 ＝ 0)<br />
    调试输出 (“打开进程失败”)<br />
    返回 (假)<br />
.如果真结束<br />
局_数据指针 ＝ VirtualAllocEx (局_进程句柄, 0, 取文本长度 (局_文件路径) ＋ 20, 4096, 4)<br />
.如果真 (局_数据指针 ＝ 0)<br />
    调试输出 (“局_数据指针申请内存失败”)<br />
    返回 (假)<br />
.如果真结束<br />
WriteProcessMemory_整数5 (局_进程句柄, 局_数据指针, lstrcpyn_字节集 (局_写入数据, 局_写入数据, 0), 取文本长度 (局_文件路径) ＋ 20, 局_写入大小)<br />
.如果真 (局_写入大小 ≠ 取文本长度 (局_文件路径) ＋ 20)<br />
    返回 (假)<br />
.如果真结束<br />
SendMessageA (局_窗口句柄, 563, 局_数据指针, 0)<br />
WaitForSingleObject (局_窗口句柄, 5000)<br />
WaitForSingleObject (局_进程句柄, 5000)<br />
VirtualFreeEx (局_窗口句柄, 局_数据指针, 0, #MEM_RELEASE)<br />
VirtualFreeEx (局_进程句柄, 局_数据指针, 0, #MEM_RELEASE)<br />
返回 (真)