Option Explicit

 

Private Const HKEY_LOCAL_MACHINE As Long = &H80000002

Private Const KEY_ALL_ACCESS As Long = &H3F

Private Const REG_SZ As Long = 1

 

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByRef lpData As Any, ByVal cbData As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

 

'Добавить в автозагрузку

Public Sub AddToStartup(ByVal strKey As String, ByVal strValue As String)

    Dim lResult As Long

    Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", _

        0, KEY_ALL_ACCESS, lResult)

    Call RegSetValueEx(lResult, strKey, 0, REG_SZ, ByVal strValue, Len(strValue))

    Call RegCloseKey(lResult)

End Sub

 

'Убрать из автозагрузки

Public Sub DeleteFromStartup(ByVal strKey As String)

    Dim lResult As Long

    Call RegOpenKeyEx(HKEY_LOCAL_MACHINE, _

        "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, lResult)

    Call RegDeleteValue(lResult, strKey)

    Call RegCloseKey(lResult)

End Sub

 

Private Sub Form_Load()

    Call AddToStartup("MyApplication", App.Path & Chr$(92) & App.EXEName & ".exe")

End Sub