Dim a As RegistryKey
a = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
a.SetValue(My.Application.Info.Title, My.Application.Info.DirectoryPath)
a.Close()
a.DeleteValue(My.Application.Info.Title, My.Application.Info.DirectoryPath)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 27