td » 13.04.2003 (Вс) 12:14
вот.. в каком-то примере было
у меня спотыкается сразу же на апи
Public Function GetValueInteger(strSection As String, strKey As String, strFile As String) As Integer
'Данная функция возвращает целочисленное значение из ini-файла. Где имя секции – strSection, имя ключа – strKey и strFile – полный путь к ini-файлу.
Dim intValue As Integer
On Error GoTo PROC_ERR
intValue = GetPrivateProfileInt(strSection, strKey, 0, strFile)
GetValueInteger = intValue
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueInteger"
Resume PROC_EXIT
End Function
Public Function GetValueString(strSection As String, strKey As String, strFile As String) As String
'Данная функция возвращает строковое значение из ini-файла. Где имя секции – strSection, имя ключа – strKey и strFile – полный путь к ini-файлу.
Dim strBuffer As String * 256
Dim intSize As Integer
On Error GoTo PROC_ERR
intSize = GetPrivateProfileString(strSection, strKey, "", strBuffer, 256, strFile)
GetValueString = Left$(strBuffer, intSize)
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Ошибка: <" & Err.Number & "> - " & Err.Description, vbExclamation + vbOKOnly, "GetValueString"
Resume PROC_EXIT
End Function