开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 6702|回复: 13
收起左侧

[易语言纯源码] [原创]发送消息方式模拟拖放操作,从程序往外拖!

[复制链接]
结帖率:17% (1/6)
发表于 2012-2-11 15:52:53 | 显示全部楼层 |阅读模式   四川省泸州市
分享源码
界面截图:
是否带模块: -
备注说明: -
因为自己写的一个程序需要将自身窗口列表中将文件拖放到外部程序,研究好几天论坛上的拖放方式都不是正规的往外拖放,很遗憾的是自己也没能完美研究出来,不过通过对网上搜到的一些VC源码进行研究,在易语言里实现了模拟往外拖放的消息发送方式,我肯定这是正确的拖放方式。测试已成功。

全API操作,写了个例程保存起来,以备以后完美实现。

例程运行后会自动将运行目录中的txt文本文件加入到超级列表框,并自动运行记事本程序。

将超级列表框中的文本文件名称拖放到记事本窗口中即可打开。就像从资源管理器中将文本文件拖放到记事本程序窗口中是一样的。



==================基本思路======================

1.用 GetWindowThreadProcessId 获取目标窗口进程ID
2.用 OpenProcess 打开进程ID来获取进程的句柄
3.用 VirtualAllocEx 申请进程内存【VirtualAllocEx(OpenProcess返回的句柄, nil, 4096, MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE)】
4.用 WriteProcessMemory 将拖放数据结构和拖放的文件名写入内存
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是剪切还是拷贝
这些没能研究出来。


希望有大侠可以完善这个拖拽操作,实现真正的向外拖放文件,就像Windows操作系统那样,不知道千千静听的往外拖放歌曲文件是怎么实现的。。

模拟拖拽.rar (22.5 KB, 下载次数: 196)

结帖率:83% (15/18)
发表于 2012-2-11 16:13:50 | 显示全部楼层   福建省南平市
支持你一下。{:3_228:}沙发
回复 支持 反对

使用道具 举报

结帖率:37% (7/19)
发表于 2012-2-12 09:55:10 | 显示全部楼层   北京市北京市
这个有点价值
回复 支持 反对

使用道具 举报

发表于 2012-3-3 17:31:38 | 显示全部楼层   河南省新乡市
想了几天,不好意思,我不得要领
回复 支持 反对

使用道具 举报

结帖率:0% (0/1)
发表于 2012-4-2 09:55:04 | 显示全部楼层   四川省成都市
收藏先.............
回复 支持 反对

使用道具 举报

结帖率:20% (1/5)
发表于 2012-4-2 19:23:12 | 显示全部楼层   湖南省长沙市
我偶啊平 啊
回复 支持 反对

使用道具 举报

发表于 2012-4-7 17:45:18 | 显示全部楼层   安徽省合肥市
支持 开源的
回复 支持 反对

使用道具 举报

结帖率:96% (22/23)
发表于 2012-4-15 17:48:57 | 显示全部楼层   上海市上海市
范德萨范德萨佛挡杀佛第三方的
回复 支持 反对

使用道具 举报

发表于 2012-7-31 00:11:07 | 显示全部楼层   安徽省合肥市
找个APi 呜呜 这么难啊 想死了~~
回复 支持 反对

使用道具 举报

发表于 2012-10-16 11:25:06 | 显示全部楼层   四川省遂宁市
谢谢分享啦。给力
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表