易语言多线程文件搜索源码

系统结构:搜索文件,启动线程_,FindFirstFileA,FindClose,FindNextFileA,InitializeCriticalSection,EnterCriticalSection,LeaveCriticalSection,CreateThread,DeleteCriticalSection,CloseHandle,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 搜索文件
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ 启动线程_
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindFirstFileA
           |  |
           |  |---[dll]------   FindClose
           |  |
           |  |---[dll]------   FindNextFileA
           |  |
           |  |---[dll]------   InitializeCriticalSection
           |  |
           |  |---[dll]------   EnterCriticalSection
           |  |
           |  |---[dll]------   LeaveCriticalSection
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   DeleteCriticalSection
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

.DLL命令 FindFirstFileA, 整数型, "kernel32.dll", "FindFirstFileA"
    .参数 文件名, 文本型, , lpFileName，欲搜索的文件名
    .参数 文件信息, WIN32_FIND_DATA, , lpFindFileData，参见相关帮助

.DLL命令 FindClose, 整数型, "kernel32.dll", "FindClose", , , FindClose,关闭由FindFirstFile函数创建的一个搜索句柄
    .参数 搜索句柄, 整数型, , hFindFile，由FindFirstFile函数提供的搜索句柄

.DLL命令 FindNextFileA, 整数型, "kernel32.dll", "FindNextFileA"
    .参数 搜索句柄, 整数型, , hFindFile，参见相关帮助
    .参数 文件有关信息, WIN32_FIND_DATA, , lpFindFileData，参见相关帮助

.DLL命令 InitializeCriticalSection, , "kernel32.dll", "InitializeCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 EnterCriticalSection, , "kernel32.dll", "EnterCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 LeaveCriticalSection, , "kernel32.dll", "LeaveCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION

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

.DLL命令 DeleteCriticalSection, , "kernel32.dll", "DeleteCriticalSection"
    .参数 lpCriticalSection, CRITICAL_SECTION

.DLL命令 CloseHandle, 整数型, "kernel32", "CloseHandle", 公开, 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;