|
7楼

楼主 |
发表于 2014-1-10 22:46:52
|
只看该作者
河北省石家庄市
[e]
.版本 2
.子程序 剪辑板_取文件, 整数型, 公开, 取已经复制到剪贴板的文件名,返回文件个数。
.参数 文件数组, 文本型, 参考 可空 数组, 用于存放文件路径的数组,留空则只返回文件数量。
.参数 状态, 逻辑型, 参考 可空, 返回=真,对文件执行了剪切操作;返回=假,对文件执行了复制操作
.局部变量 hDrop, 整数型
.局部变量 sTmp, 文本型
.局部变量 i, 整数型
.局部变量 lcount, 整数型
.局部变量 null, 文本型
.局部变量 lngFormat, 整数型
.局部变量 lngEffect, 整数型
清除数组 (文件数组)
.如果真 (IsClipboardFormatAvailable (15) = 0 或 OpenClipboard (0) = 0)
返回 (0)
.如果真结束
hDrop = GetClipboardData (15)
lcount = DragQueryFileA (hDrop, -1, null, 0)
sTmp = 取空白文本 (260)
.计次循环首 (lcount, i)
DragQueryFileA (hDrop, i - 1, sTmp, 260)
加入成员 (文件数组, sTmp)
.计次循环尾 ()
.如果真 (是否为空 (状态) = 假)
lngFormat = RegisterClipboardFormatA (“Preferred DropEffect”)
hDrop = GetClipboardData (lngFormat)
RtlMoveMemory_整数型1 (lngEffect, hDrop, 4)
GlobalFree (hDrop)
状态 = lngEffect = 2
.如果真结束
CloseClipboard ()
返回 (lcount)
[/e] |
|