易语言解锁文件源码

系统结构:EnumModuleCallback,EnumHandleCallback,查询DOS设备,取逻辑驱动器字符串,取短路径名,取长路径名,取进程可执行文件路径,QueryDosDeviceA,GetLogicalDriveStringsA,PathFindFileNameA,GetShortPathNameA,OpenProcess,CloseHandle,CreateToolhelp32Snapshot,Module32First,GetLongPathNameA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ EnumModuleCallback
           |  |
           |  |------ EnumHandleCallback
           |  |
           |  |------ _解锁_被选择
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======程序集1
           |  |
           |  |------ 查询DOS设备
           |  |
           |  |------ 取逻辑驱动器字符串
           |  |
           |  |------ 取短路径名
           |  |
           |  |------ 取长路径名
           |  |
           |  |------ 取进程可执行文件路径
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   QueryDosDeviceA
           |  |
           |  |---[dll]------   GetLogicalDriveStringsA
           |  |
           |  |---[dll]------   PathFindFileNameA
           |  |
           |  |---[dll]------   GetShortPathNameA
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Module32First
           |  |
           |  |---[dll]------   GetLongPathNameA

调用的DLL命令:

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

.DLL命令 GetLogicalDriveStringsA, 整数型, "kernel32.dll", "GetLogicalDriveStringsA"
    .参数 nBufferLength, 整数型
    .参数 lpBuffer, 字节集

.DLL命令 PathFindFileNameA, 文本型, "Shlwapi.dll", "PathFindFileNameA"
    .参数 pPath, 文本型

.DLL命令 GetShortPathNameA, 整数型, , "GetShortPathNameA"
    .参数 lpszLongPath, 文本型
    .参数 lpszShortPath, 文本型
    .参数 cchBuffer, 整数型

.DLL命令 OpenProcess, 整数型, , "OpenProcess"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwProcessId, 整数型

.DLL命令 CloseHandle, 逻辑型
    .参数 hObject, 整数型

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型

.DLL命令 Module32First, 逻辑型
    .参数 hSnapshot, 整数型
    .参数 lpme, MODULEENTRY32

.DLL命令 GetLongPathNameA, 整数型
    .参数 lpszShortPath, 文本型
    .参数 lpszLongPath, 文本型
    .参数 cchBuffer, 整数型