![]() |
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
|
|
|
|
Damit der User die Anwendung besser identifizieren kann, sollte der Name des Programms
in der Systemregistrierung unter MyProject / Assemblyinformationen / Produkt: ... eingetragen werden.
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (17,2
kB)
|
Downloads bisher: [ 549 ]
|
|
|