![](https://csdnimg.cn/release/download_crawler_static/9449857/bg4.jpg)
取得 win.ini 初始化文件中指定条目的一个整数值
Public Declare Function GetProfileInt Lib "kernel32" Alias "GetProfileIntA" (ByVal
lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Long) As Long
Long,找到条目的值;如指定的条目未找到,就返回默认值。如找到的数字不是一个合法的
整数,函数就会返回其中合法的一部分。例如,对于“xyz=55zz”这个条目,函数会返回
55。这个函数也能理解采用标准 C 语言格式的十六进制数字:用 0x 作为一个十六进制数字
的前缀——所以 0x55ab 等价于 vb 的&H55AB
String,欲在其中搜索条目的小节名。这个字串不区分大小写
String,欲获取的项名或条目名。这个字串不区分大小写
Private Sub Command1_Click()
Dim speed As Long
speed = GetProfileInt("Windows", "DoubleClickSpeed", 0)
MsgBox "[windows]" & vbCrLf & "DoubleClickSpeed=" & speed, , "GetProfileInt"
End Sub
六、GetProfileString
取得 win.ini 初始化文件中指定条目的一个字符串值
Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal
lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal
lpReturnedString As String, ByVal nSize As Long) As Long
Long,复制到 lpReturnedString 缓冲区的字节数量,其中不包括那些 NULL 中止字符。如
lpReturnedString 缓冲区不够大,不能容下全部信息,就返回 nSize-1(若 lpAppName 或
lpKeyName 为 NULL,则返回 nSize-2)
String,要在其中查找条目的小节名。这个字串不区分大小写。如果
为 vbNullString,则在 lpReturnedString 缓冲区装载这个.ini 文件的所
有小节的一个列表
String,欲获取的项名或条目名。这个字串不区分大小写。如果为