易语言端口进度复制文件源码

系统结构:创建浅凹式控件_黑月,取整数型指针_黑月,计算百分比,线程_复制文件,CreateRectRgn,SetWindowRgn,GetCompressedFileSize,CreateEvent,SetEvent,CloseHandle,WaitForSingleObject,LoadCursor,SetCursor,Sleep,CreateFile,GetFileSizeEx,SetFilePointerEx,SetEndOfFile,CreateIoCompletionPort,PostQueuedCompletionStatus,GetQueuedCompletionStatus,WriteFile,ReadFile,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 创建浅凹式控件_黑月
           |  |
           |  |------ 取整数型指针_黑月
           |  |
           |  |------ 计算百分比
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮_选择文件_被单击
           |  |
           |  |------ 线程_复制文件
           |  |
           |  |------ _按钮_开始复制_被单击
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _按钮_停止_被单击
           |  |
           |  |------ _按钮_暂停恢复_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateRectRgn
           |  |
           |  |---[dll]------   SetWindowRgn
           |  |
           |  |---[dll]------   GetCompressedFileSize
           |  |
           |  |---[dll]------   CreateEvent
           |  |
           |  |---[dll]------   SetEvent
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   SetCursor
           |  |
           |  |---[dll]------   Sleep
           |  |
           |  |---[dll]------   CreateFile
           |  |
           |  |---[dll]------   GetFileSizeEx
           |  |
           |  |---[dll]------   SetFilePointerEx
           |  |
           |  |---[dll]------   SetEndOfFile
           |  |
           |  |---[dll]------   CreateIoCompletionPort
           |  |
           |  |---[dll]------   PostQueuedCompletionStatus
           |  |
           |  |---[dll]------   GetQueuedCompletionStatus
           |  |
           |  |---[dll]------   WriteFile
           |  |
           |  |---[dll]------   ReadFile

调用的DLL命令:

.DLL命令 CreateRectRgn, 整数型, "gdi32.dll", "CreateRectRgn", 公开, 创建矩形。执行成功为区域句柄，失败则为零
    .参数 X1, 整数型, , 矩形左上角X，Y坐标
    .参数 Y1, 整数型, , 同上
    .参数 X2, 整数型, , 矩形右下角X，Y坐标    
    .参数 Y2, 整数型, , 同上  

.DLL命令 SetWindowRgn, 整数型, "user32.dll", "SetWindowRgn", 公开, 创建外形
    .参数 hWnd, 整数型, , 窗口句柄
    .参数 hRgn, 整数型, , 区域句柄
    .参数 bRedraw, 逻辑型, , 重画窗口

.DLL命令 GetCompressedFileSize, 整数型, , "GetCompressedFileSizeA"
    .参数 lpszFileName, 文本型
    .参数 lpFileSizeHigh, 整数型, 传址

.DLL命令 CreateEvent, 整数型, , "CreateEventA"
    .参数 lpEventAttributes
    .参数 bManualReset, 逻辑型
    .参数 bInitialState, 逻辑型
    .参数 lpName, 整数型

.DLL命令 SetEvent, 逻辑型
    .参数 hEvent

.DLL命令 CloseHandle, 逻辑型
    .参数 hObject

.DLL命令 WaitForSingleObject, 整数型, , "WaitForSingleObject"
    .参数 hHandle
    .参数 dwMilliseconds

.DLL命令 LoadCursor, 整数型, , "LoadCursorA"
    .参数 hInstance
    .参数 lpCursorName

.DLL命令 SetCursor, 整数型
    .参数 hCursor

.DLL命令 Sleep
    .参数 time

.DLL命令 CreateFile, 整数型, , "CreateFileA"
    .参数 lpFileName, 文本型
    .参数 dwDesiredAccess
    .参数 dwShareMode
    .参数 lpSecurityAttributes
    .参数 dwCreationDisposition
    .参数 dwFlagsAndAttributes
    .参数 hTemplateFile

.DLL命令 GetFileSizeEx, 逻辑型
    .参数 hFile
    .参数 lpFileSize, 长整数型, 传址

.DLL命令 SetFilePointerEx, 逻辑型
    .参数 hFile
    .参数 liDistanceToMove, 长整数型
    .参数 lpNewFilePointer, 长整数型, 传址
    .参数 dwMoveMethod

.DLL命令 SetEndOfFile, 逻辑型
    .参数 hFile

.DLL命令 CreateIoCompletionPort, 整数型
    .参数 FileHandle
    .参数 ExistingCompletionPort
    .参数 CompletionKey
    .参数 NumberOfConcurrentThreads

.DLL命令 PostQueuedCompletionStatus, 逻辑型
    .参数 CompletionPort
    .参数 dwNumberOfBytesTransferred
    .参数 dwCompletionKey
    .参数 lpOverlapped, OVERLAPPED

.DLL命令 GetQueuedCompletionStatus, 逻辑型
    .参数 CompletionPort
    .参数 lpNumberOfBytes, , 传址
    .参数 lpCompletionKey, , 传址
    .参数 lpOverlapped, 整数型, 传址
    .参数 dwMilliseconds

.DLL命令 WriteFile, 逻辑型
    .参数 hFile
    .参数 lpBuffer, 字节集
    .参数 nNumberOfBytesToWrite
    .参数 lpNumberOfBytesWritten
    .参数 lpOverlapped, OVERLAPPED

.DLL命令 ReadFile, 逻辑型
    .参数 hFile
    .参数 lpBuffer, 字节集
    .参数 nNumberOfBytesToRead
    .参数 lpNumberOfBytesRead
    .参数 lpOverlapped, OVERLAPPED