设置自动运行易语言例程

系统结构:设置开机自动运行,删除启动项,打开注册表项_,关闭注册表项_,读注册表项值_,设置注册表项值_,删除注册表项_,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 设置开机自动运行
           |  |
           |  |------ 删除启动项
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   打开注册表项_
           |  |
           |  |---[dll]------   关闭注册表项_
           |  |
           |  |---[dll]------   读注册表项值_
           |  |
           |  |---[dll]------   设置注册表项值_
           |  |
           |  |---[dll]------   删除注册表项_

调用的DLL命令:

.DLL命令 打开注册表项_, 整数型, "advapi32.dll", "RegOpenKeyA", , , 打开一个现有的注册表项,零（ERROR_SUCCESS）表示成功。其他任何值都代表一个错误代码
    .参数 标准项名, 整数型, , hKey，指定一个标准项名
    .参数 项名, 文本型, , lpSubKey，要打开的项名
    .参数 打开注册表项句柄, 整数型, 传址, phkResult，指定一个变量，用于装载（保存）打开注册表项的一个句柄

.DLL命令 关闭注册表项_, , "advapi32.dll", "RegCloseKey"
    .参数 hKey, 整数型

.DLL命令 读注册表项值_, 整数型, "advapi32", "RegQueryValueExA"
    .参数 nKey, 整数型
    .参数 cValueName, 文本型
    .参数 nReserved, 整数型
    .参数 nType, 整数型, 传址
    .参数 cBuffer, 文本型, 传址
    .参数 nBufferSize, 整数型, 传址

.DLL命令 设置注册表项值_, 整数型, "advapi32", "RegSetValueExA"
    .参数 nKey, 整数型
    .参数 cValueName, 文本型
    .参数 nReserved, 整数型
    .参数 nType, 整数型
    .参数 cBuffer, 文本型
    .参数 nBufferSize, 整数型

.DLL命令 删除注册表项_, 整数型, "advapi32", "RegDeleteValueA"
    .参数 nHKey, 整数型
    .参数 cSubKey, 文本型