获取剪贴板文件

情缘侠

  

DLL命令名	返回值类型	公开	备 注
打开剪贴板	整数型
DLL库文件名:
在DLL库中对应命令名:
OpenClipboard
参数名	类 型	传址	数组	备 注
窗口_句柄	整数型

DLL命令名	返回值类型	公开	备 注
清空剪贴板	逻辑型
DLL库文件名:
在DLL库中对应命令名:
EmptyClipboard
参数名	类 型	传址	数组	备 注

DLL命令名	返回值类型	公开	备 注
获取剪贴板数据	整数型		返回句柄
DLL库文件名:
在DLL库中对应命令名:
GetClipboardData
参数名	类 型	传址	数组	备 注
uFormat	整数型			表示的是要放进剪贴板数据的格式

DLL命令名	返回值类型	公开	备 注
获取文件拖放操作	整数型
DLL库文件名:
shell32.dll
在DLL库中对应命令名:
DragQueryFile
参数名	类 型	传址	数组	备 注
文件拖放操作的句柄	整数型
文件索引	整数型
用于存储文件路径	文本型
缓冲区大小	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
剪贴板句柄	整数型
文件数量	整数型
文件路径	文本型

打开剪贴板 (_启动窗口.取窗口句柄 ())
剪贴板句柄 ＝ 获取剪贴板数据 (15)  ' #CF_HDROP
文件数量 ＝ 获取文件拖放操作 (剪贴板句柄, -1, 文件路径, 0)  ' 获取文件数量
如果真 (文件数量 ＞ 0)
拖放对象1.注册拖放控件 (剪贴板句柄)
获取文件拖放操作 (剪贴板句柄, 0, 文件路径, 260)
调试输出 (剪贴板句柄, 文件数量, 文件路径)

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

.版本 2<br /> <br /> .DLL命令 打开剪贴板, 整数型, , "OpenClipboard"<br />     .参数 窗口_句柄, 整数型<br /> <br /> .DLL命令 清空剪贴板, 逻辑型, , "EmptyClipboard"<br /> <br /> .DLL命令 获取剪贴板数据, 整数型, , "GetClipboardData", , 返回句柄<br />     .参数 uFormat, 整数型, , 表示的是要放进剪贴板数据的格式<br /> <br /> .DLL命令 获取文件拖放操作, 整数型, "shell32.dll", "DragQueryFile"<br />     .参数 文件拖放操作的句柄, 整数型<br />     .参数 文件索引, 整数型<br />     .参数 用于存储文件路径, 文本型, 传址<br />     .参数 缓冲区大小, 整数型<br /> .版本 2<br /> .支持库 edroptarget<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 剪贴板句柄, 整数型<br /> .局部变量 文件数量, 整数型<br /> .局部变量 文件路径, 文本型<br /> <br /> 打开剪贴板 (_启动窗口.取窗口句柄 ())<br /> 剪贴板句柄 ＝ 获取剪贴板数据 (15)  '#CF_HDROP<br /> 文件数量 ＝ 获取文件拖放操作 (剪贴板句柄, -1, 文件路径, 0)  ' 获取文件数量<br /> .如果真 (文件数量 ＞ 0)<br />     拖放对象1.注册拖放控件 (剪贴板句柄)<br />     获取文件拖放操作 (剪贴板句柄, 0, 文件路径, 260)<br />     调试输出 (剪贴板句柄, 文件数量, 文件路径)

调试输出：* 199602560 | 1 | “”
娶不到文件路径，不知道怎么弄

高先生

剪辑版取文件.e (153.85 KB, 下载次数: 15)

2025-2-13 15:12 上传

点击文件名下载附件

补充内容 (2025-2-13 15:13):
精益模块摘出来的。学习使用

算法艺术家

剪辑板_取文件(, )

1752328925

  

DLL命令名	返回值类型	公开	备 注
OpenClipboard	逻辑型		打开剪辑板
DLL库文件名:
user32.dll
在DLL库中对应命令名:
OpenClipboard
参数名	类 型	传址	数组	备 注
剪辑板句柄	整数型

DLL命令名	返回值类型	公开	备 注
IsClipboardFormatAvailable	逻辑型		判断剪辑板是否为某类型
DLL库文件名:
user32
在DLL库中对应命令名:
IsClipboardFormatAvailable
参数名	类 型	传址	数组	备 注
类型	整数型			CF_TEXT以NULL结尾的ASCII字符的文本格式;CF_BITMAP图像句柄HBITMAP

DLL命令名	返回值类型	公开	备 注
GetClipboardData	整数型		取剪贴板数据句柄
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetClipboardData
参数名	类 型	传址	数组	备 注
剪贴板格式	整数型			wFormat

DLL命令名	返回值类型	公开	备 注
DragQueryFileA	整数型		取剪贴板文件名
DLL库文件名:
shell32.dll
在DLL库中对应命令名:
DragQueryFileA
参数名	类 型	传址	数组	备 注
hDrop	整数型
iFile	整数型
lpszFile	文本型
cch	整数型

DLL命令名	返回值类型	公开	备 注
CloseClipboard	逻辑型		关闭剪辑板
DLL库文件名:
user32.dll
在DLL库中对应命令名:
CloseClipboard
参数名	类 型	传址	数组	备 注

.版本 2<br /> <br /> .DLL命令 OpenClipboard, 逻辑型, "user32.dll", "OpenClipboard", , 打开剪辑板<br />     .参数 剪辑板句柄, 整数型<br /> <br /> .DLL命令 IsClipboardFormatAvailable, 逻辑型, "user32", "IsClipboardFormatAvailable", , 判断剪辑板是否为某类型<br />     .参数 类型, 整数型, , CF_TEXT以NULL结尾的ASCII字符的文本格式;CF_BITMAP图像句柄HBITMAP<br /> <br /> .DLL命令 GetClipboardData, 整数型, "user32.dll", "GetClipboardData", , 取剪贴板数据句柄<br />     .参数 剪贴板格式, 整数型, , wFormat<br /> <br /> .DLL命令 DragQueryFileA, 整数型, "shell32.dll", "DragQueryFileA", , 取剪贴板文件名<br />     .参数 hDrop, 整数型<br />     .参数 iFile, 整数型<br />     .参数 lpszFile, 文本型, 传址<br />     .参数 cch, 整数型<br /> <br /> .DLL命令 CloseClipboard, 逻辑型, "user32.dll", "CloseClipboard", , 关闭剪辑板

#################-----代码-----#################

  

子程序名	返回值类型	公开	备 注
getFileName	StringList		获取文件名集合

变量名	类 型	静态	数组	备 注
handle	整数型
count	整数型
fileName	文本型
i	整数型
list	StringList

如果真 (OpenClipboard (0))  ' 打开剪贴板
如果真 (IsClipboardFormatAvailable (15))  ' 判断是否包含文件
handle ＝ GetClipboardData (15)  ' 获取剪贴板文件数据句柄
count ＝ DragQueryFileA (handle, -1, “”, 0)
fileName ＝ 取空白文本 (260)
计次循环首 (count, i)
DragQueryFileA (handle, i － 1, fileName, 260)
list.add (fileName)
计次循环尾 ()
CloseClipboard ()

返回 (list)

.版本 2<br /> <br /> .子程序 getFileName, StringList, 公开, 获取文件名集合<br /> .局部变量 handle, 整数型<br /> .局部变量 count, 整数型<br /> .局部变量 fileName, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 list, StringList<br /> <br /> .如果真 (OpenClipboard (0))  ' 打开剪贴板<br />     .如果真 (IsClipboardFormatAvailable (15))  ' 判断是否包含文件<br /> <br />         handle ＝ GetClipboardData (15)  ' 获取剪贴板文件数据句柄<br />         count ＝ DragQueryFileA (handle, -1, “”, 0)<br />         fileName ＝ 取空白文本 (260)<br />         .计次循环首 (count, i)<br />             DragQueryFileA (handle, i － 1, fileName, 260)<br />             list.add (fileName)<br />         .计次循环尾 ()<br />     .如果真结束<br />     CloseClipboard ()<br /> .如果真结束<br /> <br /> 返回 (list)

1752328925

  

DLL命令名	返回值类型	公开	备 注
OpenClipboard	逻辑型		打开剪辑板
DLL库文件名:
user32.dll
在DLL库中对应命令名:
OpenClipboard
参数名	类 型	传址	数组	备 注
剪辑板句柄	整数型

DLL命令名	返回值类型	公开	备 注
IsClipboardFormatAvailable	逻辑型		判断剪辑板是否为某类型
DLL库文件名:
user32
在DLL库中对应命令名:
IsClipboardFormatAvailable
参数名	类 型	传址	数组	备 注
类型	整数型			CF_TEXT以NULL结尾的ASCII字符的文本格式;CF_BITMAP图像句柄HBITMAP

DLL命令名	返回值类型	公开	备 注
GetClipboardData	整数型		取剪贴板数据句柄
DLL库文件名:
user32.dll
在DLL库中对应命令名:
GetClipboardData
参数名	类 型	传址	数组	备 注
剪贴板格式	整数型			wFormat

DLL命令名	返回值类型	公开	备 注
DragQueryFileA	整数型		取剪贴板文件名
DLL库文件名:
shell32.dll
在DLL库中对应命令名:
DragQueryFileA
参数名	类 型	传址	数组	备 注
hDrop	整数型
iFile	整数型
lpszFile	文本型
cch	整数型

DLL命令名	返回值类型	公开	备 注
CloseClipboard	逻辑型		关闭剪辑板
DLL库文件名:
user32.dll
在DLL库中对应命令名:
CloseClipboard
参数名	类 型	传址	数组	备 注

.版本 2<br /> <br /> .DLL命令 OpenClipboard, 逻辑型, "user32.dll", "OpenClipboard", , 打开剪辑板<br />     .参数 剪辑板句柄, 整数型<br /> <br /> .DLL命令 IsClipboardFormatAvailable, 逻辑型, "user32", "IsClipboardFormatAvailable", , 判断剪辑板是否为某类型<br />     .参数 类型, 整数型, , CF_TEXT以NULL结尾的ASCII字符的文本格式;CF_BITMAP图像句柄HBITMAP<br /> <br /> .DLL命令 GetClipboardData, 整数型, "user32.dll", "GetClipboardData", , 取剪贴板数据句柄<br />     .参数 剪贴板格式, 整数型, , wFormat<br /> <br /> .DLL命令 DragQueryFileA, 整数型, "shell32.dll", "DragQueryFileA", , 取剪贴板文件名<br />     .参数 hDrop, 整数型<br />     .参数 iFile, 整数型<br />     .参数 lpszFile, 文本型, 传址<br />     .参数 cch, 整数型<br /> <br /> .DLL命令 CloseClipboard, 逻辑型, "user32.dll", "CloseClipboard", , 关闭剪辑板

1752328925

  

子程序名	返回值类型	公开	备 注
getFileName	StringList		获取文件名集合

变量名	类 型	静态	数组	备 注
handle	整数型
count	整数型
fileName	文本型
i	整数型
list	StringList

如果真 (OpenClipboard (0))  ' 打开剪贴板
如果真 (IsClipboardFormatAvailable (15))  ' 判断是否包含文件
handle ＝ GetClipboardData (15)  ' 获取剪贴板文件数据句柄
count ＝ DragQueryFileA (handle, -1, “”, 0)
fileName ＝ 取空白文本 (260)
计次循环首 (count, i)
DragQueryFileA (handle, i － 1, fileName, 260)
list.add (fileName)
计次循环尾 ()
CloseClipboard ()

返回 (list)

.版本 2<br /> <br /> .子程序 getFileName, StringList, 公开, 获取文件名集合<br /> .局部变量 handle, 整数型<br /> .局部变量 count, 整数型<br /> .局部变量 fileName, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 list, StringList<br /> <br /> .如果真 (OpenClipboard (0))  ' 打开剪贴板<br />     .如果真 (IsClipboardFormatAvailable (15))  ' 判断是否包含文件<br /> <br />         handle ＝ GetClipboardData (15)  ' 获取剪贴板文件数据句柄<br />         count ＝ DragQueryFileA (handle, -1, “”, 0)<br />         fileName ＝ 取空白文本 (260)<br />         .计次循环首 (count, i)<br />             DragQueryFileA (handle, i － 1, fileName, 260)<br />             list.add (fileName)<br />         .计次循环尾 ()<br />     .如果真结束<br />     CloseClipboard ()<br /> .如果真结束<br /> <br /> 返回 (list)

补充内容 (2025-2-13 15:34):
你没有StringList  就用数组  把list.add (fileName)  换成数组 加入成员