易语言取文件大小源码

系统结构:取文件尺寸_模块,取文件尺寸_,数值到格式化字节_,打开二进制文件_,关闭LZ文件_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |
======程序集1
           |  |
           |  |------ 取文件尺寸_模块
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取文件尺寸_
           |  |
           |  |---[dll]------   数值到格式化字节_
           |  |
           |  |---[dll]------   打开二进制文件_
           |  |
           |  |---[dll]------   关闭LZ文件_

调用的DLL命令:

.DLL命令 取文件尺寸_, 整数型, "kernel32", "GetFileSize"
    .参数 文件句柄, 整数型
    .参数 尺寸大小, 整数型

.DLL命令 数值到格式化字节_, 整数型, "shlwapi.dll", "StrFormatByteSizeA"
    .参数 数值, 整数型, , dw
    .参数 文本缓冲区, 文本型, , szBuf
    .参数 文本缓冲区大小, 整数型, 传址, uiBufSize

.DLL命令 打开二进制文件_, 整数型, "kernel32.dll", "_lopen"
    .参数 文件名, 文本型, , lpPathName,欲打开文件的名字
    .参数 访问权限, 整数型, , iReadWrite,访问模式和共享模式常数的一个组合

.DLL命令 关闭LZ文件_, , "lz32.dll", "LZClose", , 关闭由LZOpenFile 或 LZInit函数打开的一个文件
    .参数 文件句柄, 整数型, , hfFile,欲关闭的句柄