文件运行API易语言源码

系统结构:文件是否可运行,文件是否运行中,API_OpenFile,API_CloseHandle,API_GetBinaryTypeA,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 文件是否可运行
           |  |
           |  |------ 文件是否运行中
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_OpenFile
           |  |
           |  |---[dll]------   API_CloseHandle
           |  |
           |  |---[dll]------   API_GetBinaryTypeA

调用的DLL命令:

.DLL命令 API_OpenFile, 整数型, "kernel32", "OpenFile", , 这个函数能执行大量不同的文件操作。和这个函数相比，请优先考虑win32的CreateFile函数（它能打开命名管道和控制Unicode文件名，同时不受128个字符的路径名称的限制）  如执行成功，返回文件句柄。注意文件句柄可能是无效的；例如，假设指定了OF_EXIST标志，文件在函数返回前会关闭，但它打开时的句柄却永远不会返回。如果出错，函数会返回HFILE_ERROR；此时，由lpReOpenBuff指定的OFSTRUCT结构的nErrCode会设置成发生的错误。表OpenFile-2（OFSTRUCT出错代码）对这些错误进行了总结。会设置GetLastError
    .参数 文件名, 文本型, , 欲打开文件的名字
    .参数 文件操作结果, OFSTRUCT, , OFSTRUCT，该结构填充的数据包括与文件和操作结果有关的信息
    .参数 操作方式, 整数型, , 参考表OpenFile-1（OpenFile函数的标志常数表）总结的标志常数的组合，它决定了要采取的操作方式;

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

.DLL命令 API_GetBinaryTypeA, 逻辑型, "kernel32", "GetBinaryTypeA", , 判断文件是否可以执行  非零表示成功，零表示失败
    .参数 文件路径, 文本型, , 欲测试文件的完整路径名
    .参数 文件类型, 整数型, 传址, 用于装载文件类型的一个变量。这些类型由下述任何一个常数定义：;SCS_32BIT_BINARY：win32执行程序;SCS_DOS_BINARY：DOS执行程序;SCS_OS216_BINARY：16位OS/2执行程序;SCS_PIF_BINARY：用于执行DOS程序的一个pif文件;SCS_POSIX_BINARY：一个Posix应用;SCS_WOW_BINARY：16位windows执行程序;