易语言U盘文件复制源码

系统结构:文件列表,CopyFile,取路径文件名,取路径扩展名,MsgProc,GetTextAddress,GetLogicalDriveStrings,FindFirstFile,FindNextFile,FindClose,PathFindExtension,PathFindFileName,PathIsDirectory,SetWindowLong,CallWindowProc,RtlMoveMemory,RegisterHotKey,UnregisterHotKey,

======Main
           |  |
           |  |------ 文件列表
           |  |
           |  |------ CopyFile
           |  |
           |  |------ 取路径文件名
           |  |
           |  |------ 取路径扩展名
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ MsgProc
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ GetTextAddress
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetLogicalDriveStrings
           |  |
           |  |---[dll]------   FindFirstFile
           |  |
           |  |---[dll]------   FindNextFile
           |  |
           |  |---[dll]------   FindClose
           |  |
           |  |---[dll]------   PathFindExtension
           |  |
           |  |---[dll]------   PathFindFileName
           |  |
           |  |---[dll]------   PathIsDirectory
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   RegisterHotKey
           |  |
           |  |---[dll]------   UnregisterHotKey

调用的DLL命令:

.DLL命令 GetLogicalDriveStrings, 整数型, "kernel32", "GetLogicalDriveStringsA"
    .参数 lpBufferLenth, 整数型
    .参数 lpBuffer, 字节集

.DLL命令 FindFirstFile, 整数型, "kernel32", "FindFirstFileA", , 查找文件
    .参数 lpFileName, 文本型
    .参数 lpFindFileData, WIN32_FIND_DATA

.DLL命令 FindNextFile, 整数型, "kernel32", "FindNextFileA", , 查找下一个
    .参数 hFindFile, 整数型
    .参数 lpFindFileData, WIN32_FIND_DATA

.DLL命令 FindClose, 整数型, "kernel32", , , 关闭查找文件句柄
    .参数 hFindFile, 整数型

.DLL命令 PathFindExtension, 整数型, "shlwapi.dll", "PathFindExtensionA", , 无扩展名返回空
    .参数 pszPath, 文本型

.DLL命令 PathFindFileName, 整数型, "shlwapi.dll", "PathFindFileNameA", , 成功返回路径文本指针地址
    .参数 pszPath, 文本型

.DLL命令 PathIsDirectory, 逻辑型, "shlwapi.dll", "PathIsDirectoryA", , 目录是否存在.存在返回真，不存在返回假
    .参数 pszPath, 文本型

.DLL命令 SetWindowLong, 子程序指针, , "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 value, 子程序指针

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
    .参数 proc, 子程序指针
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wp, 整数型
    .参数 lp, 整数型

.DLL命令 RtlMoveMemory, 整数型, , "RtlMoveMemory"
    .参数 dest, PDEV_BROADCAST_VOLUME, 传址
    .参数 source, 整数型
    .参数 len, 整数型, , 14

.DLL命令 RegisterHotKey, 逻辑型, , "RegisterHotKey"
    .参数 hWnd, 整数型
    .参数 id, 整数型
    .参数 功能键, 整数型
    .参数 键代码, 整数型

.DLL命令 UnregisterHotKey, 整数型, , "UnregisterHotKey"
    .参数 hWnd, 整数型
    .参数 id, 整数型