функции API

[td]

я использую функции апи дляработы с ини-файлами, а у меня пишутся ошибки... Нужны ли какие-то служебные слова, что это апи или что-то в этом роде?

[goro]

я использую функции апи дляработы с ини-файлами, а у меня пишутся ошибки... Нужны ли какие-то служебные слова, что это апи или что-то в этом роде?

Напиши поподробнее, какая ошибка, какие ты функции используешь и как?

[td]

вот.. в каком-то примере было
у меня спотыкается сразу же на апи

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

[goro]

А ты обьявлял?
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
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

[Хой]

Если ты обьявляешь АПИ в форме, тогла замени Public Function на Private Function

[td]

[quote="goro"]А ты обьявлял?

нет.. а в каком месте это надо? Вверху просто?

[goro]

А ты обьявлял?

нет.. а в каком месте это надо? Вверху просто?

угу в самом верху и замени как сказал Хой.