Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Функция возвращает 0 при ошибке и ненулевое значение при успешном выполнении
' Устанавливаем значение ключа "username" в разделе [Default] файла ' C:\config.ini to "Russian Vanja". Также устанавливаем ' ключ "информация" в этом же разделе со значением 1 ' (то есть, "1") Dim retval As Long ' возвращаемое значение ' устанавливаем строковый параметр retval = WritePrivateProfileString("Default", "username", "Russian Vanja", "C:\config.ini") ' устанавливаем числовой параметр retval = WritePrivateProfileString("Default", "информация", "1", "C:\config.ini")