易语言调用API导入导出注册项源码

系统结构:导出注册项,导入注册项,GetCurrentProcess,OpenProcessToken,LookupPrivilegeValue,AdjustTokenPrivileges,RegSaveKeyA,RegOpenKeyExA,RegCloseKey,RegRestoreKey,RegCreateKeyA,

======窗口程序集1
           |  |
           |  |------ 导出注册项
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 导入注册项
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetCurrentProcess
           |  |
           |  |---[dll]------   OpenProcessToken
           |  |
           |  |---[dll]------   LookupPrivilegeValue
           |  |
           |  |---[dll]------   AdjustTokenPrivileges
           |  |
           |  |---[dll]------   RegSaveKeyA
           |  |
           |  |---[dll]------   RegOpenKeyExA
           |  |
           |  |---[dll]------   RegCloseKey
           |  |
           |  |---[dll]------   RegRestoreKey
           |  |
           |  |---[dll]------   RegCreateKeyA

调用的DLL命令:

.DLL命令 GetCurrentProcess, 整数型, "kernel32.dll", "GetCurrentProcess"

.DLL命令 OpenProcessToken, 整数型, "advapi32.dll", "OpenProcessToken"
    .参数 ProcessHandle, 整数型
    .参数 DesiredAccess, 整数型
    .参数 TokenHandle, 整数型, 传址

.DLL命令 LookupPrivilegeValue, 整数型, "advapi32.dll", "LookupPrivilegeValueA"
    .参数 lpSystemName, 文本型
    .参数 lpName, 文本型
    .参数 lpLuid, LuID, 传址

.DLL命令 AdjustTokenPrivileges, 整数型, "advapi32.dll", "AdjustTokenPrivileges"
    .参数 TokenHandle, 整数型
    .参数 DisableAllPrivileges, 整数型, , 0
    .参数 NewState, Token_Privileges, 传址
    .参数 BufferLength, 整数型
    .参数 PreviousState, Token_Privileges, 传址
    .参数 ReturnLength, 整数型, 传址, 0

.DLL命令 RegSaveKeyA, 整数型
    .参数 hKey, 整数型
    .参数 lpFile, 文本型
    .参数 lpSecurityAttributeswbx, 整数型

.DLL命令 RegOpenKeyExA, 整数型, , "RegOpenKeyExA", , 打开注册表项
    .参数 hKey, 整数型
    .参数 lpSubKey, 文本型
    .参数 ulOptions, 整数型
    .参数 samDesired, 整数型
    .参数 phkResult, 整数型, 传址

.DLL命令 RegCloseKey, , , "RegCloseKey"
    .参数 hKey, 整数型

.DLL命令 RegRestoreKey, 整数型, "Advapi32.dll", "RegRestoreKeyA"
    .参数 hKey, 整数型
    .参数 lpFile, 文本型
    .参数 dwFlags, 整数型

.DLL命令 RegCreateKeyA, 整数型, "advapi32.dll", "RegCreateKeyA", , 在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项  零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 hKey, 整数型, , 要打开项的句柄，或者一个标准项名
    .参数 lpSubKey, 文本型, , 欲创建的新子项。可同时创建多个项，只需用反斜杠将它们分隔开即可。例如level1\level2\newkey
    .参数 phkResult, 整数型, 传址, 指定一个变量，用于装载新子项的句柄;