SendMessage发送拖拽消息 Unicode和ANSIC的文件

我爱搬运

上次有需要的时候半天没找到这方面的易语言源码


然后今天就写了一个 支持Unicode和ANSIC的文件名 具体看你需要怎么用吧




原作者：易编程

wetuuh

这个好像有点用 下载收藏一下

453528889

分享原码了  ！

花开一半

谢谢分享啊

gaoqing

谢谢分享啊

kagari

        奉上小小红包希望笑纳

kagari

这个好像有点用 下载收藏一下

阿婆

我来跟个贴，顺便纠正你的一个小BUG，详见数据结构注释fWide

  

子程序名	返回值类型	公开	备 注
WinDropFile	逻辑型		拖拽文件到指定窗口
参数名	类 型	参考	可空	数组	备 注
hWnd	整数型				窗口句柄
sFile	文本型				文件路径
UseAnsi	逻辑型				默认真：Ansi  假：Unicode

变量名	类 型	静态	数组	备 注
ProcessId	整数型
hProcess	整数型
Buffer	字节集
hAddress	整数型
lenBuffer	整数型
lenWrite	整数型

' typedef struct _DROPFILES {
' DWORD pFiles; 结构大小20
' POINT pt; 0,0
' BOOL  fNC; 0
' BOOL  fWide; 0表示ansi 1表示unicode
' } DROPFILES, *LPDROPFILES;
UseAnsi ＝ 选择 (是否为空 (UseAnsi), 真, UseAnsi)
GetWindowThreadProcessId (hWnd, PtrInt (ProcessId))  ' 窗口句柄获取进程ID
如果真 (ProcessId ≤ 0)
返回 (假)

如果 (UseAnsi)
Buffer ＝ { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (sFile)
Buffer ＝ AnsiToUnicode (sFile)  ' A2W
Buffer ＝ 取字节集左边 (Buffer, 取字节集长度 (Buffer) － 2)  ' 删除Unicode结尾
Buffer ＝ { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 } ＋ Buffer

lenBuffer ＝ 取字节集长度 (Buffer)
hProcess ＝ OpenProcess (位或 (8, 32), 0, ProcessId)
hAddress ＝ VirtualAllocEx (hProcess, 0, lenBuffer, 4096, 4)
WriteProcessMemory (hProcess, hAddress, PtrBin (Buffer), lenBuffer, PtrInt (lenWrite))
如果真 (lenWrite ≠ lenBuffer)
返回 (假)

如果 (UseAnsi)
SendMessageA (hWnd, #WM_DROPFILES, hAddress, 0)
SendMessageW (hWnd, #WM_DROPFILES, hAddress, 0)

VirtualFreeEx (hProcess, hAddress, 0, #MEM_RELEASE )
CloseHandle (hProcess)
返回 (真)

.版本 2<br /> <br /> .子程序 WinDropFile, 逻辑型, 公开, 拖拽文件到指定窗口<br /> .参数 hWnd, 整数型, , 窗口句柄<br /> .参数 sFile, 文本型, , 文件路径<br /> .参数 UseAnsi, 逻辑型, 可空, 默认真：Ansi  假：Unicode <br /> .局部变量 ProcessId, 整数型<br /> .局部变量 hProcess, 整数型<br /> .局部变量 Buffer, 字节集<br /> .局部变量 hAddress, 整数型<br /> .局部变量 lenBuffer, 整数型<br /> .局部变量 lenWrite, 整数型<br /> <br /> ' typedef struct _DROPFILES {<br /> ' DWORD pFiles; 结构大小20<br /> ' POINT pt; 0,0<br /> ' BOOL  fNC; 0<br /> ' BOOL  fWide; 0表示ansi 1表示unicode<br /> ' } DROPFILES, *LPDROPFILES;<br /> UseAnsi ＝ 选择 (是否为空 (UseAnsi), 真, UseAnsi)<br /> <br /> GetWindowThreadProcessId (hWnd, PtrInt (ProcessId))  ' 窗口句柄获取进程ID<br /> .如果真 (ProcessId ≤ 0)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .如果 (UseAnsi)<br />     Buffer ＝ { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 } ＋ 到字节集 (sFile)<br /> .否则<br />     Buffer ＝ AnsiToUnicode (sFile)  ' A2W<br />     Buffer ＝ 取字节集左边 (Buffer, 取字节集长度 (Buffer) － 2)  ' 删除Unicode结尾<br />     Buffer ＝ { 20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0 } ＋ Buffer<br /> .如果结束<br /> <br /> lenBuffer ＝ 取字节集长度 (Buffer)<br /> hProcess ＝ OpenProcess (位或 (8, 32), 0, ProcessId)<br /> hAddress ＝ VirtualAllocEx (hProcess, 0, lenBuffer, 4096, 4)<br /> <br /> WriteProcessMemory (hProcess, hAddress, PtrBin (Buffer), lenBuffer, PtrInt (lenWrite))<br /> .如果真 (lenWrite ≠ lenBuffer)<br />     返回 (假)<br /> .如果真结束<br /> <br /> .如果 (UseAnsi)<br />     SendMessageA (hWnd, #WM_DROPFILES, hAddress, 0)<br /> .否则<br />     SendMessageW (hWnd, #WM_DROPFILES, hAddress, 0)<br /> .如果结束<br /> <br /> VirtualFreeEx (hProcess, hAddress, 0, #MEM_RELEASE)<br /> CloseHandle (hProcess)<br /> 返回 (真)

2446789312

新技能已get√

网络注册会员

又改进了哦