易语言快速创建文件源码

系统结构:创建空白文件,CreateFile,printf,CreateFileMapping,CloseHandle,SetFilePointer,SetEndOfFile,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 创建空白文件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateFile
           |  |
           |  |---[dll]------   printf
           |  |
           |  |---[dll]------   CreateFileMapping
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   SetFilePointer
           |  |
           |  |---[dll]------   SetEndOfFile

调用的DLL命令:

.DLL命令 CreateFile, 整数型, "kernel32", "CreateFileA", , 这是一个全功能的例程，可打开和创建文件、管道、邮槽、通信服务、设备以及控制台  如执行成功，则返回文件句柄。INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS ;    或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS
    .参数 lpFileName, 文本型, , 要打开的文件的名字
    .参数 dwDesiredAccess, 整数型, , 如果为 GENERIC_READ 表示允许对设备进行读访问；如果为 GENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息
    .参数 dwShareMode, 整数型, , 零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允许对文件进行共享访问
    .参数 lpSecurityAttributes, 整数型, , SECURITY_ATTRIBUTES，指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的security特性（如果操作系统支持的话）
    .参数 dwCreationDisposition, 整数型, , 下述常数之一：;CREATE_NEW：创建文件；如文件存在则会出错;CREATE_ALWAYS：创建文件，会改写前一个文件;OPEN_EXISTING：文件必须已经存在。由设备提出要求;OPEN_ALWAYS：如文件不存在则创建它;TRUNCATE_EXISTING：讲现有文件缩短为零长度
    .参数 dwFlagsAndAttributes, 整数型, , 一个或多个下述常数;FILE_ATTRIBUTE_ARCHIVE：标记归档属性;FILE_ATTRIBUTE_COMPRESSED：将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式;FILE_ATTRIBUTE_NORMAL：默认属性;FILE_ATTRIBUTE_HIDDEN：隐藏文件或目录;FILE_ATTRIBUTE_READONLY：文件为只读;FILE_ATTRIBUTE_SYSTEM：文件为系统文件;FILE_FLAG_WRITE_THROUGH：操作系统不得推迟对文件的写操作;FILE_FLAG_OVERLAPPED：允许对文件进行重叠操作;FILE_FLAG_NO_BUFFERING：禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块;FILE_FLAG_RANDOM_ACCESS：针对随机访问对文件缓冲进行优化;FILE_FLAG_SEQUENTIAL_SCAN：针对连续访问对文件缓冲进行优化;FILE_FLAG_DELETE_ON_CLOSE：关闭了上一次打开的句柄后，将文件删除。特别适合临时文件也可在Windows NT下组合使用下述常数标记：SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION， SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY
    .参数 hTemplateFile, 整数型, , 如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性;

.DLL命令 printf, 整数型, "crtdll.dll", "printf", , 来自EVA辅助库

.DLL命令 CreateFileMapping, 整数型, "kernel32", "CreateFileMappingA", , 创建一个新的文件映射对象  新建文件映射对象的句柄；零意味着出错。会设置GetLastError。即使函数成功，但倘若返回的句柄属于一个现成的文件映射对象，那么GetLastError也会设置成ERROR_ALREADY_EXISTS。在这种情况下，文件映射的长度就是现有对象的长度，而不是这个函数指定的尺寸
    .参数 hFile, 整数型, , 指定欲在其中创建映射的一个文件句柄。&HFFFFFFFF&表示在内存中创建一个文件映射
    .参数 lpFileMappigAttributes, 整数型, , SECURITY_ATTRIBUTES，指定一个security对象，在创建文件映射时使用。如果为NULL（用ByVal As Long传递零），表示使用默认security对象
    .参数 flProtect, 整数型, , 下述常数之一：;PAGE_READONLY：以只读方式打开映射;PAGE_READWRITE：以可读、可写方式打开映射;PAGE_WRITECOPY：为写操作留下备份可组合使用下述一个或多个常数;SEC_COMMIT：为文件映射一个小节中的所有页分配内存;SEC_IMAGE：文件是个可执行文件;SEC_RESERVE：为没有分配实际内存的一个小节保留虚拟内存空间
    .参数 dwMaximumSizeHigh, 整数型, , 文件映射的最大长度（高32位）
    .参数 dwMaximumSizeLow, 整数型, , 文件映射的最小长度（低32位）。如这个参数和dwMaximumSizeHigh都是零，就用磁盘文件的实际长度
    .参数 lpName, 整数型, , 指定文件映射对象的名字。如存在这个名字的一个映射，函数就会打开它。用vbNull创建一个无名的文件映射;

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 hObject, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 SetFilePointer, 整数型, "kernel32", "SetFilePointer", , 在一个文件中设置当前的读写位置  返回一个新位置，它采用从文件起始处开始算起的一个字节偏移量。HFILE_ERROR意味着出错。会设置GetLastError
    .参数 hFile, 整数型
    .参数 lDistanceToMove, 整数型
    .参数 lpDistanceToMoveHigh, 整数型
    .参数 dwMoveMethod, 整数型

.DLL命令 SetEndOfFile, 整数型, "kernel32", "SetEndOfFile", , 针对一个打开的文件，将当前文件位置设为文件末尾  非零表示成功，零表示失败。会设置GetLastError
    .参数 hFile, 整数型