如何 拖拽文件 打开到指定窗口上

梦影

如何实现子程序  拖拽文件 打开到指定窗口上

论坛上找了一个 但是 自定义结构无法复制下来  下面代码无法运行   求大神帮助

  

子程序名	返回值类型	公开	备 注
拖拽文件	逻辑型		成功返回真，失败返回假。
参数名	类 型	参考	可空	数组	备 注
参数_目标窗口句柄	整数型
参数_要拖拽的文件	文本型				文件全路径

变量名	类 型	静态	数组	备 注
内存地址	整数型
文件路径	文本型
进程句柄	整数型
目标线程号	整数型
目标进程号	整数型
临时_写入内存	整数型
dropFiles	DROPFILES
临时_释放内存	整数型
关闭句柄	整数型
结构长度_DROPFILES	整数型
结构长度_szFile	整数型
临时_返回文本	整数型

' ===============思路与步骤========================
' 1.用 GetWindowThreadProcessId 获取目标窗口进程ID
' 2.用 OpenProcess 打开进程ID来获取进程的句柄
' 3.用 VirtualAllocEx 申请进程内存【VirtualAllocEx(OpenProcess返回的句柄, nil, 4096, MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE)】
' 4.用 WriteProcessMemory 将拖放xx结构和拖放的文件名写入内存
' 5.用 SendMessage 发送拖拽消息；【SendMessage(AHandle, WM_DROPFILES, Integer(vPointer), 0)】
' 6.用 VirtualFreeEx 释放内存【VirtualFreeEx(OpenProcess返回的句柄, VirtualAllocEx返回的内存首地址, 0, MEM_RELEASE)】
' 7.用 CloseHandle 关闭进程的句柄【CloseHandle(OpenProcess返回的句柄)】
' ================额外思路=========================
' 感觉在发送消息之前，应该用 OnDropFiles(HDROP hDropInfo)方法告诉Windows开始拖拽了
' 并且还应该告诉Windows拖拽的文件名，好让目标程序判断是接收还是不接收。
' 以及告诉Windows是剪切还是拷贝
' 这些没能研究出来。
结构长度_DROPFILES ＝ 取结构长度_DROPFILES (dropFiles)
dropFiles.pFiles ＝ 结构长度_DROPFILES  ' 拖放xx结构长度
dropFiles.pt.x ＝ 0  ' 拖放位置横坐标
dropFiles.pt.y ＝ 0  ' 拖放位置纵坐标
dropFiles.fNC ＝ 真  ' 是否继承句柄
dropFiles.fWide ＝ 假  ' 是否为Unicode文本
GetWindowThreadProcessId (参数_目标窗口句柄, 目标进程号)  ' 获取目标窗口的进程号
如果真 (目标进程号 ＝ 0)  ' 进程号获取失败
返回 (假)

进程句柄 ＝ OpenProcess (2035711, 假, 目标进程号)  ' 打开进程，返回进程句柄。2035711是完全访问
如果真 (进程句柄 ＝ 0)  ' 进程打开失败
返回 (假)

内存地址 ＝ VirtualAllocEx (进程句柄, 0, 4096, 4096, 4)  ' 申请内存，返回内存首地址。
如果真 (内存地址 ＝ 0)  ' 申请内存失败
返回 (假)

临时_写入内存 ＝ 写内存_DROPFILES (进程句柄, 内存地址, dropFiles, 取结构长度_DROPFILES (dropFiles), 0)  ' 写入拖拽结构信息
如果真 (临时_写入内存 ＝ 0)  ' 写入失败
输出调试文本 (取错误信息_ ())  ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。
VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存
CloseHandle (进程句柄)  ' 关闭进程句柄
返回 (假)

临时_写入内存 ＝ 写内存_文件名 (进程句柄, 内存地址 ＋ 取结构长度_DROPFILES (dropFiles), 参数_要拖拽的文件, 取文本长度 (参数_要拖拽的文件) ＋ 1, 0)
如果真 (临时_写入内存 ＝ 0)  ' 写入失败
输出调试文本 (取错误信息_ ())  ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。
VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存
CloseHandle (进程句柄)  ' 关闭进程句柄
返回 (假)

发送消息 (参数_目标窗口句柄, 563, 内存地址, 0)  ' 发送拖放消息，WM_DROPFILES=563。
VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存
CloseHandle (进程句柄)  ' 关闭进程句柄
返回 (真)

.版本 2<br /> <br /> .子程序 拖拽文件, 逻辑型, , 成功返回真，失败返回假。<br /> .参数 参数_目标窗口句柄, 整数型<br /> .参数 参数_要拖拽的文件, 文本型, , 文件全路径<br /> .局部变量 内存地址, 整数型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 进程句柄, 整数型<br /> .局部变量 目标线程号, 整数型<br /> .局部变量 目标进程号, 整数型<br /> .局部变量 临时_写入内存, 整数型<br /> .局部变量 dropFiles, DROPFILES<br /> .局部变量 临时_释放内存, 整数型<br /> .局部变量 关闭句柄, 整数型<br /> .局部变量 结构长度_DROPFILES, 整数型<br /> .局部变量 结构长度_szFile, 整数型<br /> .局部变量 临时_返回文本, 整数型<br /> <br /> ' ===============思路与步骤========================<br /> ' 1.用 GetWindowThreadProcessId 获取目标窗口进程ID<br /> ' 2.用 OpenProcess 打开进程ID来获取进程的句柄<br /> ' 3.用 VirtualAllocEx 申请进程内存【VirtualAllocEx(OpenProcess返回的句柄, nil, 4096, MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE)】<br /> ' 4.用 WriteProcessMemory 将拖放xx结构和拖放的文件名写入内存<br /> ' 5.用 SendMessage 发送拖拽消息；【SendMessage(AHandle, WM_DROPFILES, Integer(vPointer), 0)】<br /> ' 6.用 VirtualFreeEx 释放内存【VirtualFreeEx(OpenProcess返回的句柄, VirtualAllocEx返回的内存首地址, 0, MEM_RELEASE)】<br /> ' 7.用 CloseHandle 关闭进程的句柄【CloseHandle(OpenProcess返回的句柄)】<br /> ' ================额外思路=========================<br /> ' 感觉在发送消息之前，应该用 OnDropFiles(HDROP hDropInfo)方法告诉Windows开始拖拽了<br /> ' 并且还应该告诉Windows拖拽的文件名，好让目标程序判断是接收还是不接收。<br /> ' 以及告诉Windows是剪切还是拷贝<br /> ' 这些没能研究出来。<br /> <br /> 结构长度_DROPFILES ＝ 取结构长度_DROPFILES (dropFiles)<br /> dropFiles.pFiles ＝ 结构长度_DROPFILES  ' 拖放xx结构长度<br /> dropFiles.pt.x ＝ 0  ' 拖放位置横坐标<br /> dropFiles.pt.y ＝ 0  ' 拖放位置纵坐标<br /> dropFiles.fNC ＝ 真  ' 是否继承句柄<br /> dropFiles.fWide ＝ 假  ' 是否为Unicode文本<br /> <br /> GetWindowThreadProcessId (参数_目标窗口句柄, 目标进程号)  ' 获取目标窗口的进程号<br /> .如果真 (目标进程号 ＝ 0)  ' 进程号获取失败<br />     返回 (假)<br /> .如果真结束<br /> <br /> 进程句柄 ＝ OpenProcess (2035711, 假, 目标进程号)  ' 打开进程，返回进程句柄。2035711是完全访问<br /> .如果真 (进程句柄 ＝ 0)  ' 进程打开失败<br />     返回 (假)<br /> .如果真结束<br /> <br /> 内存地址 ＝ VirtualAllocEx (进程句柄, 0, 4096, 4096, 4)  ' 申请内存，返回内存首地址。<br /> .如果真 (内存地址 ＝ 0)  ' 申请内存失败<br />     返回 (假)<br /> .如果真结束<br /> <br /> 临时_写入内存 ＝ 写内存_DROPFILES (进程句柄, 内存地址, dropFiles, 取结构长度_DROPFILES (dropFiles), 0)  ' 写入拖拽结构信息<br /> .如果真 (临时_写入内存 ＝ 0)  ' 写入失败<br />     输出调试文本 (取错误信息_ ())  ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。<br />     VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br />     CloseHandle (进程句柄)  ' 关闭进程句柄<br />     返回 (假)<br /> .如果真结束<br /> <br /> 临时_写入内存 ＝ 写内存_文件名 (进程句柄, 内存地址 ＋ 取结构长度_DROPFILES (dropFiles), 参数_要拖拽的文件, 取文本长度 (参数_要拖拽的文件) ＋ 1, 0)<br /> .如果真 (临时_写入内存 ＝ 0)  ' 写入失败<br />     输出调试文本 (取错误信息_ ())  ' 输出错误信息。通常为126，代表内存地址没有找到或指定内存地址无法写入。<br />     VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br />     CloseHandle (进程句柄)  ' 关闭进程句柄<br />     返回 (假)<br /> .如果真结束<br /> <br /> 发送消息 (参数_目标窗口句柄, 563, 内存地址, 0)  ' 发送拖放消息，WM_DROPFILES=563。<br /> <br /> VirtualFreeEx (进程句柄, 内存地址, 0, 32768)  ' 释放申请的内存<br /> CloseHandle (进程句柄)  ' 关闭进程句柄<br /> 返回 (真)

同学麻烦让让

很明显楼主要的是发消息到其他进程的窗口调用其他进程的拖放事件啊，在楼主的代码基础上改了一下，用易语言自带的拖放控件测试不行，貌似易语言拖放控件用的不是dropfile，用spy++监控易语言自带的拖放控件都不会产生wm_dropfile消息，用精益模块的文件拖放类测试是正常的。

其他窗口拖放.e (10.71 KB, 下载次数: 50)

2021-10-20 11:26 上传

点击文件名下载附件 测试.e (884.68 KB, 下载次数: 24)

2021-10-20 11:26 上传

点击文件名下载附件

番茄吧

你是准备拖放到自己窗口还是其他不具备拖放的窗口？

番茄吧

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
文件拖放	文件拖放

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

文件拖放.拖放对象_zc (取窗口句柄 (), &取回文件名子程序)

子程序名	返回值类型	公开	备 注
取回文件名子程序
参数名	类 型	参考	可空	数组	备 注
file	文本型

调试输出 (file)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 文件拖放, 文件拖放<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> 文件拖放.拖放对象_zc (取窗口句柄 (), &取回文件名子程序)<br /> <br /> .子程序 取回文件名子程序<br /> .参数 file, 文本型<br /> <br /> 调试输出 (file)

精益模块

Dhs过客

肯定启动的时候 组件没有启动

杰西卡技术传媒

目标窗口文件拖放