Записывает файл в автозапуске

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub Form_Load()
Dim X As Long
Dim iniSection As String

Dim iniItem As String
Dim ItemValue As String

Dim iniFile As String

iniSection = "windows"
iniItem = "load"

ItemValue = "'" & App.Path + "\" + App.EXEName + ".exe" & ""
iniFile = "c:\windows\win.ini"
X = WritePrivateProfileString(iniSection, iniItem, ItemValue, iniFile)
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Записывает файл в автозапуске", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!