易语言文件复制到剪贴板源码

系统结构:复制到剪贴板,从剪贴板粘贴,SHFileOperation,EmptyClipboard,OpenClipboard,CloseClipboard,SetClipboardData,GetClipboardData,IsClipboardFormatAvailable,DragQueryFile,DragQueryPoint,GlobalAlloc,GlobalFree,GlobalLock,GlobalUnlock,CopyMem,CopyMem2,DLL命令1,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 复制到剪贴板
           |  |
           |  |------ 从剪贴板粘贴
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SHFileOperation
           |  |
           |  |---[dll]------   EmptyClipboard
           |  |
           |  |---[dll]------   OpenClipboard
           |  |
           |  |---[dll]------   CloseClipboard
           |  |
           |  |---[dll]------   SetClipboardData
           |  |
           |  |---[dll]------   GetClipboardData
           |  |
           |  |---[dll]------   IsClipboardFormatAvailable
           |  |
           |  |---[dll]------   DragQueryFile
           |  |
           |  |---[dll]------   DragQueryPoint
           |  |
           |  |---[dll]------   GlobalAlloc
           |  |
           |  |---[dll]------   GlobalFree
           |  |
           |  |---[dll]------   GlobalLock
           |  |
           |  |---[dll]------   GlobalUnlock
           |  |
           |  |---[dll]------   CopyMem
           |  |
           |  |---[dll]------   CopyMem2
           |  |
           |  |---[dll]------   DLL命令1

调用的DLL命令:

.DLL命令 SHFileOperation, 整数型, "shell32.dll", "SHFileOperationA"
    .参数 lpFileOp, SHFILEOPSTRUCT, 传址

.DLL命令 EmptyClipboard, 整数型, "user32"

.DLL命令 OpenClipboard, 整数型, "user32"
    .参数 hwnd, 整数型

.DLL命令 CloseClipboard, 整数型, "user32"

.DLL命令 SetClipboardData, 整数型, "user32"
    .参数 wFormat, 整数型
    .参数 hMem, 整数型

.DLL命令 GetClipboardData, 整数型, "user32"
    .参数 wFormat, 整数型

.DLL命令 IsClipboardFormatAvailable, 整数型, "user32"
    .参数 wFormat, 整数型

.DLL命令 DragQueryFile, 整数型, "shell32.dll", "DragQueryFileA"
    .参数 hDrop, 整数型
    .参数 UINT, 整数型
    .参数 lpStr, 文本型
    .参数 ch, 整数型

.DLL命令 DragQueryPoint, 整数型, "shell32.dll"
    .参数 hDrop, 整数型
    .参数 lpPoint, POINTAPI, 传址

.DLL命令 GlobalAlloc, 整数型, "kernel32"
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GlobalFree, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 GlobalLock, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 GlobalUnlock, 整数型, "kernel32"
    .参数 hMem, 整数型

.DLL命令 CopyMem, , "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, DROPFILES, 传址
    .参数 Length, 整数型

.DLL命令 CopyMem2, , "kernel32", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 字节集
    .参数 Length, 整数型

.DLL命令 DLL命令1