Функция GetPrivateProfileInt

Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, _
    ByVal nDefault As Long, _
    ByVal lpFileName As String) As Long

GetPrivateProfileInt читает целое значение заданного ключа из ini-файла

Возвращаемое значение

В успешном случае функция возвращает значение ключа. Если заданное значение не существует, или является строкой, то возвращается значение, определенное как nDefault. Если полученное значение не является допустимым целым числом, то возвратится только числовая часть(Например, 38попугаев = 38)

Параметры

lpApplicationName

Секция, где идет поиск значения ключа(Регистр символов не учитывается)

lpKeyName

Ключ, значение которого требуется узнать(Регистр символов не учитывается)

nDefault

Значение по умолчанию, если заданный ключ не будет найден

lpFileName

Путь к ini-файлу. Если путь не указан, то файл ищется в каталоге Windows

Пример

' Читаем значение "NumProviders" из ключа "[Providers]"
' файла INI file C:\Windows\TELEPHON.INI
Dim retval As Long  ' получаемое значение из файла

' Читаем заданное значение,
' возвращая -1, если не сможем вернуть значение ключа
retval = GetPrivateProfileInt("Providers", "NumProviders", -1, "TELEPHON.INI")
' Показываем результат
If retval = -1 Then
  Print "Не могу прочитать требуемую информацию"
Else
  Print "NumProviders="; retval
End If

Смотри также

GetPrivateProfileString, GetProfileInt

Категория

Файлы INI