Tipp 0165 Anwendung automatisch mit dem System starten
Autor/Einsender:
Datum:
  Thomas Becker
22.07.2007
Entwicklungsumgebung:   VB.Net 2005
Framework:   2.0
Der Tipp zeigt wie ein Programm automatisch mit Windows gestartet werden kann. Dazu wird in der Systemregistrierung unter
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run
das Programm eingetragen. Mittels einer CheckBox wird beim Start der Anwendung geprüft, ob das Programm bereits registriert wurde. Fällt die Prüfung positiv aus, erhält die CheckBox ihr Häkchen. Weiterhin kann mit einem CheckBox-Klick, das Programm in der Registrierung ein- bzw. ausgetragen werden.
 
Imports Microsoft.Win32

Public Class Form1
Dim RegKey As RegistryKey = Registry.LocalMachine.OpenSubKey(" _
    "Software\\Microsoft\\Windows\\CurrentVersion\\Run\\", True)

Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
   'Im Autostart aktiv? Wenn ja Häkchen setzen
  If CType(RegKey.GetValue(Application.ProductName), String) = _
     (Application.ExecutablePath & " /Win") Then
     CheckBox1.Checked = True
  Else
     CheckBox1.Checked = False
  End If
End Sub

Private Sub CheckBox1_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles CheckBox1.Click

  If CheckBox1.Checked = True Then
      'Mit Windows starten falls Haken gesetzt
     Try
       RegKey.SetValue(Application.ProductName, _
          Application.ExecutablePath & " /Win")
     Catch ex As Exception
       MsgBox("Konnte Autostart leider nicht hinzufügen", _
          CType(MsgBoxStyle.MsgBoxSetForeground + _
          MsgBoxStyle.Critical, MsgBoxStyle), "Fehler")
     End Try
  Else
     'Autostart wieder deaktivieren wenn kein Haken gesetzt
     Try
       If CType(RegKey.GetValue(Application.ProductName), _
          String) <> "" Then _
          RegKey.DeleteValue(Application.ProductName)
     Catch ex As Exception
       MsgBox("Konnte Autostart leider nicht entfernen", _
          CType(MsgBoxStyle.MsgBoxSetForeground + _
          MsgBoxStyle.Critical, MsgBoxStyle), "Fehler")
     End Try
  End If
End Sub
 
Hinweis
Damit der User die Anwendung besser identifizieren kann, sollte der Name des Programms in der Systemregistrierung unter MyProject / Assemblyinformationen / Produkt: ... eingetragen werden.
Weitere Links zum Thema
Registrierung manipulieren

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (17,2 kB) Downloads bisher: [ 464 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 22. Januar 2012