|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
| 作者：本站收集 日期：2005-8-4 11:35:06 |
|
|
Windows应用程序的初始化文件(INI)对应用程序缺省设置起着重要的作用，初始化文件可以采用文本编辑器修改，但这种方法容易出现错误，不易由用户操作。下面介绍用VB实现修改初始化文件的方法。
1初始化文件的结构与特点
Windows应用程序初始化文件中通常设置应用程序的运行环境，确定应用程序变量的缺省设置，初始化文件既包含Windows本身的两个INI文件，也包括应用程序的初始化文件。如：win.ini、system.ini、ucdos.ini、vb.ini等。
其中，ucdos.ini、 vb.ini分别为希望公司的UCDOS和Visual Basic的初始化文件，这些初始化文件一般都是由应用程序和关键词构成，文件中内容的格式采用下面的通用格式：
[程序名称]
关键词=取值
例如，在system.ini中有一段内容设置非WINDOWS应用程序的字体，即：
〔Non WindowsApp〕
FontChangeEnable=1
其中，Non WindowsApp为应用程序名，FontChangeEnable为关键词，1为取值。
2与初始化有关的API函数
Windows95中的动态链接库Kernel.exe包含了六个函数，可以对INI文件进行操作，其中GetProfileInt、GetPrivateProfileInt、GetProfileString和GetPrivateString四个函数可以从INI文件中基于应用程序名和关键词的行获得信息。WritePrivateProfileString和WriteProfileString两个函数可以在INI文件中修改或创建文件中的有关行。
在VB应用程序中应按下面的方式在全局模块中进行声明。
Declare Function GetProfilelnt Lib ″Kernel″ (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer) As Integer
Declare Function GetProfileString Lib ″Kernel″(ByVal lpAppName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedsring As String, ByVal nSize As lnteger) As Integer
Declare Function WriteProfileString Lib ″Kernel″(ByVal lpApplicationName As String, lpKeyName As Any, lpString As Any) As lnteger
Declare Function GetPrivateProfilelnt Lib ″Kernel″ (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As lnteger, Byval lpFileName As String) As lnteger
Declare Function GetPrivateProfileString Lib ″Kernel″(ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As String, ByVal nSize As Integer, Byval lpFileName As String) As Integer
Declare Function WriteProfileString Lib ″Kernel″(ByVal lpApplicationName As String, lpKeyName As Any, lpString As Any) As lnteger
其中：lpApplicationName＄为应用程序名称；
lpKeyName＄为关键词；
nDefault％为关键词指定的缺省值；
lpFileName＄为初始化文件名称；
lpDefault＄为关键词指定的缺省字符串；
lpReturnString＄为接受返回值指定字符的缓冲变量；
nSize％指定拷贝到缓冲变量的字符个数；
lpString＄为新的关键词指定字符串。
上面的声明可以从VB目录上的winapi中文件win32txt获得，可以通过剪贴板直接拷贝到VB中。
3修改初始化文件实例
Windows软件包程序管理器(PROGRAMEXE)，初始化文件为PROGRAM.INI，缺省内容为
[Settings]
……
order=6 3 2 4 7 1
……
其中，order指定程序组的排列顺序，下面的程序把Order的值改为“2 3 4 1 7 6 5”，并使用SHELL函数启动程序管理器。
Private Sub form_Click()
lpAppName＄ = ″Settings″
lpKeyName％ = ″Order″
lpString＄ = ″2 3 4 1 7 6 5 ″
lpFileName＄ = ″progman.ini″
j％ = WritePrivateProfileString(lpAppName＄, lpKeyName＄ =″Order″, lpString＄ = ″2 3 4 1 7 6 5″, lpFileName＄)
j％ = Shell(″progman.exe″, 1)
End Sub |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:35:06 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]