易语言根据文件句柄取文件路径源码

系统结构:文件句柄取文件路径名,lopen,ZwQueryObject,WToM,lclose,QueryDosDevice,StrCmpNI,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 文件句柄取文件路径名
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   lopen
           |  |
           |  |---[dll]------   ZwQueryObject
           |  |
           |  |---[dll]------   WToM
           |  |
           |  |---[dll]------   lclose
           |  |
           |  |---[dll]------   QueryDosDevice
           |  |
           |  |---[dll]------   StrCmpNI

调用的DLL命令:

.DLL命令 lopen, 整数型, "kernel32", "_lopen"
    .参数 lpPathName, 文本型
    .参数 iReadWrite, 整数型

.DLL命令 ZwQueryObject, 整数型, "NTDLL.DLL", , , status = ZwQueryObject(handle, 1, namebuf, 2000, &ret);
    .参数 ObjectHandle
    .参数 ObjectInformationClass
    .参数 ObjectInformation, OBJECT_NAME_INFORMATION, 传址
    .参数 ObjectInformationLength
    .参数 ReturnLength, , 传址

.DLL命令 WToM, 整数型, "kernel32.dll", "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节型, 数组
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 lclose, 整数型, "kernel32", "_lclose"
    .参数 hFile, 整数型

.DLL命令 QueryDosDevice, 整数型, "kernel32", "QueryDosDeviceA"
    .参数 lpDeviceName, 文本型
    .参数 lpTargetPath, 文本型
    .参数 ucchMax, 整数型

.DLL命令 StrCmpNI, 整数型, "shell32.dll", "StrCmpNIA"
    .参数 lpStr1, 文本型
    .参数 lpStr2, 文本型
    .参数 nChar, 整数型