易语言组件自动注册器

系统结构:注册控件_,程序等待,传输进度条,查找文件,目录是否存在_,取短路径名,取短文件名_,载入动态连接库_,释放动态连接库_,取DLL函数地址_,执行窗口程序_,取文件扩展名_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 注册控件_
           |  |
           |  |------ 程序等待
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ _图形按钮1_被单击
           |  |
           |  |------ 传输进度条
           |  |
           |  |------ 查找文件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   目录是否存在_
           |  |
           |  |---[dll]------   取短路径名
           |  |
           |  |---[dll]------   取短文件名_
           |  |
           |  |---[dll]------   载入动态连接库_
           |  |
           |  |---[dll]------   释放动态连接库_
           |  |
           |  |---[dll]------   取DLL函数地址_
           |  |
           |  |---[dll]------   执行窗口程序_
           |  |
           |  |---[dll]------   取文件扩展名_

调用的DLL命令:

.DLL命令 目录是否存在_, 逻辑型, "shlwapi.dll", "PathIsDirectoryA"
    .参数 路径文本, 文本型

.DLL命令 取短路径名, 整数型, "kernel32", "GetShortPathNameA"
    .参数 全路径名, 文本型
    .参数 短路径名, 文本型
    .参数 短路径长度, 整数型

.DLL命令 取短文件名_, 整数型, "comdlg32.dll", "GetFileTitleA"
    .参数 文件完整路径, 文本型
    .参数 名称缓冲区, 文本型
    .参数 缓冲区长度, 短整数型

.DLL命令 载入动态连接库_, 整数型, , "LoadLibraryA"
    .参数 name, 文本型

.DLL命令 释放动态连接库_, , , "FreeLibrary"
    .参数 hddl

.DLL命令 取DLL函数地址_, 整数型, , "GetProcAddress", , 失败返回0
    .参数 hModule, , , 为HMODULE结构，是所调用DLL模块的句柄
    .参数 lpProcName, 文本型, , 为LPCSTR结构，是函数名称

.DLL命令 执行窗口程序_, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

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