易语言文件查找模块源码 [db:版本]

易语言文件查找模块源码

系统结构:取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, 整数型, 传址, 想获取退出代码的一个进程的句柄