Добавление программы в автозагрузку

Такой вариант не требует прав администратора.

' Добавляем в автозагрузку
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) ' Возращаем заданый раздел с доступом к нему
Dim Имя_программы As String = IO.Path.GetFileName(Application.ExecutablePath) ' Имя нашей программы с расширением
Start.SetValue(Имя_программы, Application.ExecutablePath) ' Добавляем новое значение
End Sub
' Убираем из автозагрузки
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) ' Возращаем заданый раздел с доступом к нему
Dim Имя_программы As String = IO.Path.GetFileName(Application.ExecutablePath) ' Имя нашей программы с расширением
Start.DeleteValue(Имя_программы) ' Удаляем наше ранее созданое значение
End Sub
  Метки:
  Евгений
  Просмотров: 5 589
  Запись опубликована в 12:59

Есть что сказать? Тогда действуй!