Windows初始化文件的修改

2019-11-18 17:34:43

字體：大中小

來源：轉載

供稿：網友

Windows應用程序的初始化文件(INI)對應用程序缺省設置起著重要的作用，初始化文件可以采用文本編輯器修改，但這種方法容易出現錯誤，不易由用戶操作。下面介紹用VB實現修改初始化文件的方法。

1初始化文件的結構與特點
Windows應用程序初始化文件中通常設置應用程序的運行環境，確定應用程序變量的缺省設置，初始化文件既包含Windows本身的兩個INI文件，也包括應用程序的初始化文件。如：win.ini、system.ini、ucdos.ini、vb.ini等。
其中，ucdos.ini、vb.ini分別為希望公司的UCDOS和VisualBasic的初始化文件，這些初始化文件一般都是由應用程序和關鍵詞構成，文件中內容的格式采用下面的通用格式：
[程序名稱]
關鍵詞=取值
例如，在system.ini中有一段內容設置非WINDOWS應用程序的字體，即：
〔NonWindowsApp〕
FontChangeEnable=1
其中，NonWindowsApp為應用程序名，FontChangeEnable為關鍵詞，1為取值。

2與初始化有關的API函數
Windows95中的動態鏈接庫Kernel.exe包含了六個函數，可以對INI文件進行操作，其中GetPRofileInt、GetPrivateProfileInt、GetProfileString和GetPrivateString四個函數可以從INI文件中基于應用程序名和關鍵詞的行獲得信息。WritePrivateProfileString和WriteProfileString兩個函數可以在INI文件中修改或創建文件中的有關行。

在VB應用程序中應按下面的方式在全局模塊中進行聲明。
DeclareFunctionGetProfilelntLib″Kernel″(ByVallpAppNameAsString,ByVallpKeyNameAsString,ByValnDefaultAsInteger)AsInteger

DeclareFunctionGetProfileStringLib″Kernel″(ByVallpAppNameAsString,lpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedsringAsString,ByValnSizeAslnteger)AsInteger

DeclareFunctionWriteProfileStringLib″Kernel″(ByVallpapplicationNameAsString,lpKeyNameAsAny,lpStringAsAny)Aslnteger

DeclareFunctionGetPrivateProfilelntLib″Kernel″(ByVallpApplicationNameAsString,ByVallpKeyNameAsString,ByValnDefaultAslnteger,ByvallpFileNameAsString)Aslnteger

DeclareFunctionGetPrivateProfileStringLib″Kernel″(ByVallpApplicationNameAsString,lpKeyNameAsAny,ByVallpDefaultAsString,ByVallpReturnedStringAsString,ByValnSizeAsString,ByValnSizeAsInteger,ByvallpFileNameAsString)AsInteger

DeclareFunctionWriteProfileStringLib″Kernel″(ByVallpApplicationNameAsString,lpKeyNameAsAny,lpStringAsAny)Aslnteger

其中：lpApplicationName＄為應用程序名稱；
lpKeyName＄為關鍵詞；
nDefault％為關鍵詞指定的缺省值；
lpFileName＄為初始化文件名稱；
lpDefault＄為關鍵詞指定的缺省字符串；
lpReturnString＄為接受返回值指定字符的緩沖變量；
nSize％指定拷貝到緩沖變量的字符個數；
lpString＄為新的關鍵詞指定字符串。
上面的聲明可以從VB目錄上的winapi中文件win32txt獲得，可以通過剪貼板直接拷貝到VB中。
3修改初始化文件實例
Windows軟件包程序管理器(PROGRAMEXE)，初始化文件為PROGRAM.INI，缺省內容為
[Settings]
……
order=632471
……
其中，order指定程序組的排列順序，下面的程序把Order的值改為“2341765”，并使用SHELL函數啟動程序管理器。
PrivateSubform_Click()
lpAppName＄=″Settings″
lpKeyName％=″Order″
lpString＄=″2341765″
lpFileName＄=″progman.ini″
j％=WritePrivateProfileString(lpAppName＄,lpKeyName＄=″Order″,lpString＄=″2341765″,lpFileName＄)
j％=Shell(″progman.exe″,1)
EndSub->

上一篇：VB中APP對象及其應用