Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long
GetPrivateProfileString читает строковые значения из INI-файлов. Параметры, передаваемые функции, определяют значение для чтения. Функция всегда возвращает длину в символах строки, помещенной в переменную lpReturnedString. Если выполнение функции было успешно, чтение строки от INI файла будет помещено в lpReturnedString. Если нет, то вместо этого получит строку, данную как lpDefault. Обратите внимание, что поддержка INI -файлов обеспечивается в Windows для совместимости; для хранения информации используйте системный реестр
' Скопируйте файл oeminfo.ini ' в папку C:\Samples ' читаем значение "Manufacturer" в секции [General] ' INI-файла oeminfo.ini ' Значение Manufacturer "Русский_Проект" Dim uname As String ' значение ключа, получаемое из файла Dim slength As Long ' длина получаемой строки uname = Space(255) ' обеспечиваем достаточно места для функции, чтобы поместить значение в буфер ' читаем INI-файл slength = GetPrivateProfileString("general", "Manufacturer", "anonymous", uname, 255, "C:\Samples\oeminfo.ini") uname = Left(uname, slength) ' извлекаем нужную строчку из буфера Debug.Print "Производитель: "; uname
GetPrivateProfileInt, GetProfileString, WritePrivateProfileString