Programm per Registry im Autostart eintragen Verfasst am: 15.06.2009, 10:28
Beschreibung: Diese Funktion prüft ob das Programm in der sie aufgerufen wird im Registry Eintrag des Autostarts steht, sollte dem so sein wird ein False zurück gegeben, sollte dem aber nicht so sein so wird True zurückgegeben und das Programm wird eingetragen.
Funktion:
Code:
Private Function RegisterApplication(ByVal AppName As String) As Boolean<br /><br /> Const SubKeyName As String = _ <br /> "SoftwareMicrosoftWindowsCurrentVersionRun"<br /><br /> Dim hReg As Microsoft.Win32.RegistryKey = _ <br /> Microsoft.Win32.Registry.CurrentUser.OpenSubKey(SubKeyName, True)<br /> If hReg.GetValue(AppName) Is Nothing Then<br /> hReg.SetValue(AppName, Application.ExecutablePath)<br /> hReg.Close()<br /> Return True<br /> End If<br /> Return False<br /><br />End Function