



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)Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10