易语言API读写配置项源码

系统结构:API读配置项,API写配置项,API取运行目录,GetPrivateProfileString,GetCurrentDirectoryA,WritePrivateProfileStringA,

======窗口程序集1
           |  |
           |  |------ API读配置项
           |  |
           |  |------ API写配置项
           |  |
           |  |------ API取运行目录
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetPrivateProfileString
           |  |
           |  |---[dll]------   GetCurrentDirectoryA
           |  |
           |  |---[dll]------   WritePrivateProfileStringA

调用的DLL命令:

.DLL命令 GetPrivateProfileString, 整数型, "kernel32", "GetPrivateProfileStringA", , 为初始化文件中指定的条目取得字串  复制到lpReturnedString缓冲区的字节数量，其中不包括那些NULL中止字符。如lpReturnedString缓冲区不够大，不能容下全部信息，就返回nSize-1（若lpApplicationName或lpKeyName为NULL，则返回nSize-2）
    .参数 lpApplicationName, 文本型, , 欲在其中查找条目的小节名称。这个字串不区分大小写。如设为vbNull，就在lpReturnedString缓冲区内装载这个ini文件所有小节的列表
    .参数 lpKeyName, 文本型, , 欲获取的项名或条目名。这个字串不区分大小写。如设为vbNull，就在lpReturnedString缓冲区内装载指定小节所有项的列表
    .参数 lpDefault, 文本型, , 指定的条目没有找到时返回的默认值。可设为空（""）
    .参数 lpReturnedString, 文本型, , 指定一个字串缓冲区，长度至少为nSize
    .参数 nSize, 整数型, , 指定装载到lpReturned缓冲区的最大字符数量
    .参数 lpFileName, 文本型, , 初始化文件的名字。如没有指定一个完整路径名，windows就在Windows目录中查找文件  其他在vb的api文本查看器中复制的声明为：Declare Function GetPrivateProfile Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long;

.DLL命令 GetCurrentDirectoryA, 整数型, "kernel32", "GetCurrentDirectoryA", , 在一个缓冲区中装载当前目录  装载到lpBuffer的字节数。如nBufferLength的长度不够，不足以容纳目录，则返回值是必要的缓冲区长度（要求至少这个长度），其中包括空中止字符。零表示失败。会设置GetLastError
    .参数 nBufferLength, 整数型, , lpBuffer缓冲区的长度
    .参数 lpBuffer, 文本型, , 指定一个预定义字串，用于装载当前目录;

.DLL命令 WritePrivateProfileStringA, 整数型, "kernel32", "WritePrivateProfileStringA", , 在初始化文件指定小节内设置一个字串  非零表示成功，零表示失败。会设置GetLastError
    .参数 lpApplicationName, 文本型, , 要在其中写入新字串的小节名称。这个字串不区分大小写
    .参数 lpKeyName, 文本型, , 要设置的项名或条目名。这个字串不区分大小写。用vbNull可删除这个小节的所有设置项
    .参数 lpString, 文本型, , 指定为这个项写入的字串值。用vbNull表示删除这个项现有的字串
    .参数 lpFileName, 文本型, , 初始化文件的名字。如果没有指定完整路径名，则windows会在windows目录查找文件。如果文件没有找到，则函数会创建它其他在vb的api文本查看器里复制的声明如下：Declare Function WritePrivateProfile Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long;