易语言支持库安装源码

系统结构:取路径文件名_,复制文件_,取文件扩展名_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取路径文件名_
           |  |
           |  |---[dll]------   复制文件_
           |  |
           |  |---[dll]------   取文件扩展名_

调用的DLL命令:

.DLL命令 取路径文件名_, 整数型, "shlwapi.dll", "PathFindFileNameA", , , 成功返回路径文本指针地址
    .参数 路径文本, 文本型, , pszPath

.DLL命令 复制文件_, 整数型, "kernel32.dll", "CopyFileA", , ,
    .参数 源文件名, 文本型, , lpExistingFileName，被复制的文件名
    .参数 目标文件名, 文本型, , lpNewFileName，目标文件名
    .参数 是否覆盖, 整数型, , bFailIfExists，非0不覆盖，0覆盖

.DLL命令 取文件扩展名_, 整数型, "shlwapi.dll", "PathFindExtensionA", , 无扩展名返回空
    .参数 文件路径, 文本型, , pszPath