Функция GetProfileString

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

GetProfileString читает строковое значение из файла WIN.INI.

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

В успешном случае функция возвращает число символов прочитанной строки lpReturnedString (без завершающего нулевого символа). Если буфер для приема строки слишком мал, то возвращается значение nSize-1. Если параметр lpAppName или lpKeyName равен Null, то возвращается значение nSize-2.

Параметры

lpAppName

Секция, из которой будет читаться заданный ключ. Регистр букв не учитывается

lpKeyName

Имя ключа. Регистр букв не учитывается

lpDefault

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

lpReturnedString

Строковый буфер

nSize

Длина в символах строки, помещаемой в lpReturnedString

Пример

' Читаем значение ключа "Wallpaper" секции [Desktop]
' В случае ошибки функция возвратит строку "(ошибочка)"
Dim wallpaper As String  ' получаемая строка
Dim slength As Long  ' длина строки

' Создаем буфер для приема строки
wallpaper = Space(255)
' Читаем строку из WIN.INI
slength = GetProfileString("Desktop", "Wallpaper", "(ошибочка)", wallpaper, 255)
wallpaper = Left(wallpaper, slength)  ' извлекаем строку из буфера
If wallpaper = "(ошибочка)" Then
  Debug.Print "Не могу прочитать информацию из WIN.INI"
Else
  Debug.Print "Файл для обоев: "; wallpaper
End If

Смотри также

GetPrivateProfileString, GetProfileInt, WriteProfileString

Категория

Файлы INI