Feedback

Autostart etwas kürzer

VB - Volker Steitz März 4, 2008
1 Ratings 5/5

Sprache: VB

Das mit dem Autostart geht auch etwas komfortabler
'Zuerst eine Funktion um den Autostarteintrag hinzu zu fügen:

Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
        key.SetValue(name, path)
        key.Close()
End Sub

'Die nächsten funktion entfernt den Key wieder

Private Sub RemoveCurrentKey(ByVal name As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
        key.DeleteValue(name, False)
        key.Close()
End Sub


'Aufruf zum hinzufügen:
 AddCurrentKey(My.Application.Info.AssemblyName, System.Reflection.Assembly.GetEntryAssembly.Location)

'Aufruf zum entfernen des Eintrages
RemoveCurrentKey(My.Application.Info.AssemblyName)
'Zuerst eine Funktion um den Autostarteintrag hinzu zu fügen:

Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
        key.SetValue(name, path)
        key.Close()
End Sub

'Die nächsten funktion entfernt den Key wieder

Private Sub RemoveCurrentKey(ByVal name As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SoftwareMicrosoftWindowsCurrentVersionRun", True)
        key.DeleteValue(name, False)
        key.Close()
End Sub


'Aufruf zum hinzufügen:
 AddCurrentKey(My.Application.Info.AssemblyName, System.Reflection.Assembly.GetEntryAssembly.Location)

'Aufruf zum entfernen des Eintrages
RemoveCurrentKey(My.Application.Info.AssemblyName)
Abgelegt unter Autostart

Alte URL: /snippet/autostart-etwas-kuerzer/787