易语言习惯沉默图标提取器源码

系统结构:取默认打开程序,取图标加入到超级列表框,取路径文件名,延时关闭信息框,新浏览文件夹,回调函数,MessageBox,SHBrowseForFolder,SHGetPathFromIDList,SendMessage,GetFileTitle,PathRemoveExtension,PathFindExtension,FindExecutable,PathRemoveFileSpec,MessageBoxTimeoutA,PathFindFileName,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _图像_打开文件_被单击
           |  |
           |  |------ 取默认打开程序
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 取图标加入到超级列表框
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _提取选中图标_被选择
           |  |
           |  |------ _提取所有图标_被选择
           |  |
           |  |------ 取路径文件名
           |  |
           |  |------ _关于_被选择
           |  |
           |  |------ 延时关闭信息框
           |  |
           |  |
======新浏览文件夹
           |  |
           |  |------ 新浏览文件夹
           |  |
           |  |------ 回调函数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   MessageBox
           |  |
           |  |---[dll]------   SHBrowseForFolder
           |  |
           |  |---[dll]------   SHGetPathFromIDList
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   GetFileTitle
           |  |
           |  |---[dll]------   PathRemoveExtension
           |  |
           |  |---[dll]------   PathFindExtension
           |  |
           |  |---[dll]------   FindExecutable
           |  |
           |  |---[dll]------   PathRemoveFileSpec
           |  |
           |  |---[dll]------   MessageBoxTimeoutA
           |  |
           |  |---[dll]------   PathFindFileName

调用的DLL命令:

.DLL命令 MessageBox, 整数型, "User32.dll", "MessageBoxA", 公开, 返回 |0(失败)|1(确定)|2(取消)|3(异常终止)|4(重试)|5(忽略)|6(是)|7(否)
    .参数 父窗口句柄, 整数型
    .参数 对话框内容, 文本型
    .参数 对话框标题, 文本型
    .参数 对话框常量, 整数型, , 1 + 4096 + 48 [0(确定)|1(确定取消)|4(是否)|4096(窗口顶层)|10(错误)|48或64(叹号)|32(问号)]

.DLL命令 SHBrowseForFolder, 整数型, , "SHBrowseForFolderA"
    .参数 lpBrowseInfo, BROWSEINFO

.DLL命令 SHGetPathFromIDList, 整数型, , "SHGetPathFromIDListA"
    .参数 pIdl, 整数型
    .参数 pszPath, 文本型, 传址

.DLL命令 SendMessage, 整数型, , "SendMessageA"
    .参数 hwnd
    .参数 wMsg
    .参数 wParam
    .参数 lParam, 文本型, 传址

.DLL命令 GetFileTitle, 短整数型, "comdlg32.dll", "GetFileTitleA", , 取路径的文件名部分
    .参数 lpszFile, 文本型, , 文件完整路径加文件名
    .参数 lpszTitle, 文本型, , 存储文件名的缓冲区，需要预先设置足够大小
    .参数 cbBuf, 短整数型, , 缓冲区长度

.DLL命令 PathRemoveExtension, , "shlwapi.dll", "PathRemoveExtensionA", , 去掉路径的后缀名，无返回值，直接去掉
    .参数 pszPath, 文本型

.DLL命令 PathFindExtension, 文本型, "shlwapi.dll", "PathFindExtensionA", , 返回路径的后缀名
    .参数 pszPath, 文本型

.DLL命令 FindExecutable, 整数型, "shell32.dll", "FindExecutableA", , 查找与一个指定文件关联在一起的程序的文件名。可用Windows注册表编辑器将文件类型与特定的应用程序关联到一起。比如，扩展名为.TXT的文本文件通常与Windows记事本（Notepad.exe）关联到一起。如在文件管理器中双击含.TXT扩展名的一个文件，会自动启动记事本，并在其中载入文本文件  大于32表示成功；31表示不存在文件类型的关联；0表示系统内存或资源不足；ERROR_FILE_NOT_FOUND表示指定的文件不存在；ERROR_PATH_NOT_FOUND表示指定的路径不存在；ERROR_BAD_FORMAT表示执行格式无效
    .参数 lpFile, 文本型, , 指定要为其查找相关程序的一个文件名或程序名
    .参数 lpDirectory, 文本型, , 要使用的默认目录的完整路径
    .参数 lpResult, 文本型, , 指定一个字串缓冲区，用于装载可执行程序的名字。注意这个字串预先至少都要初始化成MAX_PATH个字符的长度;

.DLL命令 PathRemoveFileSpec, 整数型, "shlwapi.dll", "PathRemoveFileSpecA", , 删除路径后面的文件名和’\’符号。该函数可以分析出一个文件的路径。
    .参数 pszPath, 文本型

.DLL命令 MessageBoxTimeoutA, 整数型, "user32.dll", "MessageBoxTimeoutA", , 倒计时对话框
    .参数 hwnd, 整数型
    .参数 lpText, 文本型
    .参数 Caption, 文本型
    .参数 uType, 整数型
    .参数 wLanguageld, 整数型
    .参数 dwMilliseconds, 整数型

.DLL命令 PathFindFileName, 文本型, "shlwapi.dll", "PathFindFileNameA", , 由文件路径获得文件名
    .参数 pszPath, 文本型