API функция GetPrivateProfileString

[Alexandrius]

Не могу разобраться с API функцией для работы с .ini файлами GetPrivateProfileString.
Пытаюсь считать так:

Код: Выделить всё

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Dim SP As String
SP = Space(255)
Call GetPrivateProfileString("PATH", "Skin", "Ошибка", SP, 255, My.Application.Info.DirectoryPath & "\Options\Options.ini")

KeyName не находит... Помогите, пожалуйста, подправить код.

[Alexandrius]

P.S. VB 2008. Файл по указанному пути на месте. Все параметры в порядке. Функция WritePrivateProfileString прекрасно работает.

[viter.alex]

В .Net изменились типы данных. Тип Long это 64-разрядное число. А Integer — 32-разрядное. По сему, нужно заменить Long на Integer. Это касается всех функций API
Объявлять лучше так:

Код: Выделить всё

<DllImport("kernel32", SetLastError:=True)> _
Private Function GetPrivateProfileString (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
End Function

И нужно импортировать пространство имён System.Runtime.InteropServices

[Alexandrius]

Спасибо, viter.alex. Я уже чё только не пробовал... А оказалось просто типы данных надо поменять...

[viter.alex]

Сам наступал на те же самые грабли