易语言文件枚举搜索模块源码

系统结构:枚举文件,寻找文件,取回搜索结果,枚举文件_线程,枚举文件,寻找文件_线程,寻找文件_线程_,call,启动线程,创建进入许可证,删除进入许可证,进入许可区,退出许可区,强制结束线程,InitializeCriticalSection,DeleteCriticalSection,EnterCriticalSection,LeaveCriticalSection,CreateThread,CloseHandle,WaitForSingleObject,SuspendThread,TerminateThread,ResumeThread,GetExitCodeThread,lstrcpyn,RtlMoveMemory,FindFirstFile,FindNextFile,FindClose,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |
======文件搜索
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 枚举文件
           |  |
           |  |------ 寻找文件
           |  |
           |  |------ 取回搜索结果
           |  |
           |  |
======程序集2
           |  |
           |  |------ 枚举文件_线程
           |  |
           |  |------ 枚举文件
           |  |
           |  |------ 寻找文件_线程
           |  |
           |  |------ 寻找文件_线程_
           |  |
           |  |------ _寻找文件
           |  |
           |  |------ call
           |  |
           |  |
======程序集_线程操作
           |  |
           |  |------ 启动线程
           |  |
           |  |------ 创建进入许可证
           |  |
           |  |------ 删除进入许可证
           |  |
           |  |------ 进入许可区
           |  |
           |  |------ 退出许可区
           |  |
           |  |------ 强制结束线程
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   EnterCriticalSection
           |  |
           |  |---[dll]------   LeaveCriticalSection
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   SuspendThread
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   ResumeThread
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   FindFirstFile
           |  |
           |  |---[dll]------   FindNextFile
           |  |
           |  |---[dll]------   FindClose

调用的DLL命令:

.DLL命令 InitializeCriticalSection, , "kernel32", , , 创建许可证
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 DeleteCriticalSection, , "kernel32", , , 删除许可证
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 EnterCriticalSection, , "kernel32", , , 进入许可区
    .参数 lpCriticalSection, 多线程许可证, 传址

.DLL命令 LeaveCriticalSection, , "kernel32", , , 退出许可区
    .参数 lpCriticalSection, 多线程许可证, 传址

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

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

.DLL命令 WaitForSingleObject, 整数型, "kernel32", "WaitForSingleObject", , 监测一个对象
    .参数 hHandle, 整数型
    .参数 dwMilliseconds, 整数型

.DLL命令 SuspendThread, 整数型, "kernel32", "SuspendThread", , 挂起线索
    .参数 hThread, 整数型

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

.DLL命令 ResumeThread, 整数型, "kernel32", "ResumeThread", , 开始暂停的线索
    .参数 hThread, 整数型

.DLL命令 GetExitCodeThread, 整数型, "kernel32", "GetExitCodeThread"
    .参数 hThread, 整数型
    .参数 lpExitCode, 整数型, 传址

.DLL命令 lstrcpyn, 整数型, , "lstrcpynA"
    .参数 lpString1, 文本型, 传址
    .参数 lpString2, 文本型, 传址
    .参数 iMaxLength, 整数型

.DLL命令 RtlMoveMemory, 整数型, , "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 FindFirstFile, 整数型, , "FindFirstFileA"
    .参数 lpFileNam, 文本型
    .参数 lpFindFileData, WIN32_FIND_DATA

.DLL命令 FindNextFile, 整数型, , "FindNextFileA"
    .参数 hFindFile, 整数型
    .参数 lpFindFileData, WIN32_FIND_DATA

.DLL命令 FindClose, 整数型, , "FindClose"
    .参数 hFindFile, 整数型