易语言字符替换器源码

系统结构:强制结束线程_,寻找线程,寻找文件_,替换内容,目录_浏览文件夹,文本_取左边,文本_删首尾空,文本_寻找,字节集_取空白,文本_取空白,启动线程_,执行Shell_,取硬盘驱动器列表_,ILCreateFromPathW,SHGetPathFromIDList,SHBrowseForFolder,MultiByteToWideChar,SHGetFolderLocation,文本_取长度,CoTaskMemFree,LocalAlloc,LocalFree,FillMemory,GetDriveType,CreateThread,lstrcpyn_字节集,lstrcpyn_文本型,StrTrim,CloseHandle,TerminateThread,ShellExecute,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮_搜索_被单击
           |  |
           |  |------ _按钮_停止_被单击
           |  |
           |  |------ 强制结束线程_
           |  |
           |  |------ 寻找线程
           |  |
           |  |------ 寻找文件_
           |  |
           |  |------ 替换内容
           |  |
           |  |------ _组合框_驱动器_列表项被选择
           |  |
           |  |------ _超级列表框1_被双击
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _与我联系_被选择
           |  |
           |  |------ _意见反馈_被选择
           |  |
           |  |
======模块程序集
           |  |
           |  |------ 目录_浏览文件夹
           |  |
           |  |------ 文本_取左边
           |  |
           |  |------ 文本_删首尾空
           |  |
           |  |------ 文本_寻找
           |  |
           |  |------ 字节集_取空白
           |  |
           |  |------ _取指针_字节集
           |  |
           |  |------ _取指针_文本型
           |  |
           |  |------ 文本_取空白
           |  |
           |  |------ 启动线程_
           |  |
           |  |------ 执行Shell_
           |  |
           |  |------ 取硬盘驱动器列表_
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ILCreateFromPathW
           |  |
           |  |---[dll]------   SHGetPathFromIDList
           |  |
           |  |---[dll]------   SHBrowseForFolder
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   SHGetFolderLocation
           |  |
           |  |---[dll]------   文本_取长度
           |  |
           |  |---[dll]------   CoTaskMemFree
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   FillMemory
           |  |
           |  |---[dll]------   GetDriveType
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   lstrcpyn_字节集
           |  |
           |  |---[dll]------   lstrcpyn_文本型
           |  |
           |  |---[dll]------   StrTrim
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   ShellExecute

调用的DLL命令:

.DLL命令 ILCreateFromPathW, 整数型, , "ILCreateFromPathW"
    .参数 pwszPath, 字节集

.DLL命令 SHGetPathFromIDList, 整数型, "shell32", "SHGetPathFromIDListA"
    .参数 pidl, 整数型
    .参数 pszPath, 文本型

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

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 SHGetFolderLocation, 整数型, "shell32"
    .参数 hwndOwner, 整数型
    .参数 nFolder, 整数型
    .参数 hToken, 整数型
    .参数 dwReserved, 整数型
    .参数 pidl, ITEMIDLIST, 传址

.DLL命令 文本_取长度, 整数型, "kernel32.dll", "lstrlenA"
    .参数 文本, 文本型

.DLL命令 CoTaskMemFree, , "ole32"
    .参数 pv, 整数型

.DLL命令 LocalAlloc, 整数型
    .参数 uFlags, 整数型
    .参数 uBytes, 整数型

.DLL命令 LocalFree, 整数型
    .参数 hMem, 整数型

.DLL命令 FillMemory, , , "RtlFillMemory"
    .参数 Destination, 整数型
    .参数 Length, 整数型
    .参数 Fill, 字节型

.DLL命令 GetDriveType, 整数型, , "GetDriveTypeA"
    .参数 lpRootPathName, 文本型, 传址

.DLL命令 CreateThread, 整数型, "kernel32", , , 启动线程
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 lstrcpyn_字节集, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 字节集, 传址
    .参数 欲取其指针, 字节集, 传址
    .参数 保留, 整数型

.DLL命令 lstrcpyn_文本型, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 文本型, 传址
    .参数 欲取其指针, 文本型, 传址
    .参数 保留, 整数型

.DLL命令 StrTrim, 整数型, "shlwapi.dll", "StrTrimA"
    .参数 psz, 文本型
    .参数 pszTrimChars, 文本型

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 TerminateThread, 整数型, "kernel32", "TerminateThread", , 中止线索
    .参数 hThread, 整数型
    .参数 dwExitCode, 整数型

.DLL命令 ShellExecute, 整数型, , "ShellExecuteA"
    .参数 hwnd, 整数型, , 指定一个窗口的句柄，有些时候，Windows程序有必要在创建自己的主窗口前显示一个消息框。
    .参数 lpOperation, 文本型, , 指定字串“Open”来打开lpFlie文档；或指定“Print”来打印它。也可设为vbNullString，表示默认为“Open”
    .参数 lpFile, 文本型, , 想用关联的程序打印或打开的一个程序名或文件名
    .参数 lpParameters, 文本型, , 如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数。如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullString
    .参数 lpDirectory, 文本型, , 想使用的默认路径完整路径
    .参数 nShowCmd, 整数型, , 定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数