Visual Basic FAQ

Запись программы на автозагрузку в реестр.
На форме должна находиться кнопка с именем Command1.

Запись производится в ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run.

Option Explicit
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, 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, ByVal lpData As String, ByVal cbData As Long) As Long
Private Const HKEY_LOCAL_MACHINE = -2147483646
Private Const REG_SZ = 1

Private Sub Command1_Click()
    Dim rc As Long
    Dim rs As String

    rs = """Путь_к_программе"""
    Call RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", rc)
    Call RegSetValueEx(rc, "MyProgram", 0, REG_SZ, rs, Len(rs) + 1)
    Call RegCloseKey(rc)
End Sub

Запись опубликована on 17.10.2008 at 19:38 и размещена в рубрике: Реестр. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.