Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
WriteProfileString устанавливает значение заданного ключа в файле WIN.INI. Если ключ или значение ключа не существуют, то они будут созданы. Учтите, что Windows тоже использует для своей работы файл WIN.INI, поэтому будьте осторожны при внесении своих изменений. В настоящее время рекомендуется хранить подобные данные в реестре
' Установим значение ключа "Wallpaper" в секции [Desktop] ' в C:\Windows\Clouds.bmp Dim retval As Long ' возвращаемое значение ' Устанавливаем новое значение retval = WriteProfileString("Desktop", "Wallpaper", "C:\Windows\Clouds.bmp")