易语言文件查找模块源码

系统结构:取DOS返回,查找文件DOS版,查找文件支持库版,CreatePipe,PeekNamedPipe,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 取DOS返回
           |  |
           |  |------ 查找文件DOS版
           |  |
           |  |------ 查找文件支持库版
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreatePipe
           |  |
           |  |---[dll]------   _创建新进程
           |  |
           |  |---[dll]------   _关闭对象
           |  |
           |  |---[dll]------   PeekNamedPipe
           |  |
           |  |---[dll]------   _读出文件中数据
           |  |
           |  |---[dll]------   _取中断进程退出代码

调用的DLL命令:

.DLL命令 CreatePipe, 整数型, , "CreatePipe"
    .参数 phReadPipe, 整数型, 传址
    .参数 phWritePipe, 整数型, 传址
    .参数 lpPipeAttributes, SECURITY_ATTRIBUTES, 传址
    .参数 nSize, 整数型

.DLL命令 _创建新进程, 整数型, , "CreateProcessA"
    .参数 lpApplicationName, 整数型, , 要执行的应用程序的名字
    .参数 lpCommandLine, 文本型, , 要执行的命令行
    .参数 lpProcessAttributes, 整数型, , SECURITY_ATTRIBUTES，指定一个SECURITY_ATTRIBUTES结构，或传递零值表示采用不允许继承的默认描述符
    .参数 lpThreadAttributes, 整数型, , SECURITY_ATTRIBUTES，指定一个SECURITY_ATTRIBUTES结构，或传递零值表示采用不允许继承的默认描述符。
    .参数 bInheritHandles, 逻辑型, , TRUE表示允许当前进程中的所有句柄都由新建的子进程继承
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型, , 任何类型，指向一个环境块的指针
    .参数 lpCurrentDriectory, 整数型, , 新进程的当前目录路径
    .参数 lpStartupInfo, STARTUPINFO, 传址, STARTUPINFO，指定一个STARTUPINFO结构，其中包含了创建进程时使用的附加信息
    .参数 lpProcessInformation, PROCESS_INFORMATION, 传址, PROCESS_INFORMATION，该结构用于容纳新进程的进程和线程标识。

.DLL命令 _关闭对象, 整数型, "kernel32", "CloseHandle"
    .参数 对象句柄, 整数型

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe"
    .参数 hNamedPipe, 整数型
    .参数 lpBuffer, 整数型
    .参数 nBufferSize, 整数型
    .参数 lpBytesRead, 整数型
    .参数 lpTotalBytesAvail, 整数型, 传址
    .参数 lpBytesLeftThisMessage, 整数型

.DLL命令 _读出文件中数据, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

.DLL命令 _取中断进程退出代码, 整数型, , "GetExitCodeProcess", , 非零表示成功，零表示失败。
    .参数 hProcess, 整数型, , 用于装载进程退出代码的一个长整数变量。
    .参数 lpExitCode, 整数型, 传址, 想获取退出代码的一个进程的句柄