易语言加速文件映射源码

系统结构:写到文件_,文件号转句柄,CreateFileMapping,CloseHandle,MapViewOfFile,UnmapViewOfFile,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |
======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 写到文件_
           |  |
           |  |------ 文件号转句柄
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateFileMapping
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   MapViewOfFile
           |  |
           |  |---[dll]------   UnmapViewOfFile

调用的DLL命令:

.DLL命令 CreateFileMapping, 整数型, , "CreateFileMappingA"
    .参数 hFile, 整数型
    .参数 lpFileMappingAttributes, 整数型
    .参数 flProtect, 整数型
    .参数 dwMaximumSizeHigh, 整数型
    .参数 dwMaximumSizeLow, 整数型, , 内存区域尺寸
    .参数 lpName, 文本型

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

.DLL命令 MapViewOfFile, 整数型, , "MapViewOfFile"
    .参数 hFileMappingObject, 整数型
    .参数 dwDesiedAccess, 整数型
    .参数 dwFileOffsetHigh, 整数型
    .参数 dwFileOffsetLow, 整数型
    .参数 dwNumberOfBytesToMap, 整数型

.DLL命令 UnmapViewOfFile, 整数型, "kernel32.dll", "UnmapViewOfFile"
    .参数 lpBaseAddress, 整数型