易语言API转换文件大小源码

系统结构:FormatKB,StrFormatByteSize,GetFileSize,OpenFile,CloseHandle,GetFileSizeEx,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ FormatKB
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   StrFormatByteSize
           |  |
           |  |---[dll]------   GetFileSize
           |  |
           |  |---[dll]------   OpenFile
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetFileSizeEx

调用的DLL命令:

.DLL命令 StrFormatByteSize, 文本型, "shlwapi", "StrFormatByteSizeA"
    .参数 dw, 整数型
    .参数 pszBuf, 文本型
    .参数 cchBuf, 整数型, 传址

.DLL命令 GetFileSize, 整数型, "kernel32"
    .参数 hFile, 整数型
    .参数 lpFileSizeHigh, 整数型, 传址

.DLL命令 OpenFile, 整数型, "kernel32"
    .参数 lpFileName, 文本型
    .参数 lpReOpenBuff, OFSTRUCT, 传址
    .参数 wStyle, 整数型

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

.DLL命令 GetFileSizeEx, 整数型, "kernel32.dll", "GetFileSizeEx"
    .参数 hFile, 整数型
    .参数 lpFileSize, 长整数型, 传址