Dat kan codematig of d.m.v. een installatie.
Toevoegen:
[cpp]Dim regKey As Microsoft.Win32.RegistryKey
Dim KeyName As String = "Naam"
Dim KeyValue As String = Application.ExecutablePath
regKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
If regKey.GetValue(KeyName) = Nothing Then
regKey.SetValue(KeyName, KeyValue, Microsoft.Win32.RegistryValueKind.String)
End If[/cpp]
Om te verwijderen:
[CPP]Dim KeyName As String = "Naam"
Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
Key.DeleteValue(KeyName, False)[/CPP]
Je hebt dan wel administratorrechten nodig.
Om het via een installatieprogramma te doen, zou ik je
Inno Setup aanraden.