Запуск из реестра

[Чудик]

Сделал так:

Код: Выделить всё

            Dim key1 As Microsoft.Win32.RegistryKey
            key1 = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Run")
            key1.SetValue(1, Application.StartupPath & "\LocMessages.exe")

но при запуске Windows прогар не запускается...... с чем может быть связано?

[tyomitch]

надо писать в HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

[mse]

Неправильно пишешь в реестр.

Код: Выделить всё


Imports Microsoft.Win32

-------

        Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

        Reg.SetValue(My.Application.Info.ProductName, Application.ExecutablePath)