VB.NET

VB.NET RSS

Program Start Up

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Sep 2008

Posts: 136

Reputation: rajeesh_rsn is an unknown quantity at this point

Solved Threads: 0

rajeesh_rsn rajeesh_rsn is offline

Offline

Junior Poster

Program Start Up

Nov 30th, 2008

Hai I am Rajeesh.
New to Vb.net. I am developing a simple program. I want to run my application automatically when windows start. Please tell me how can I do this adding Windows Registry key.....

Thanks
Rajeesh

•

Join Date: Nov 2007

Posts: 2,641

Reputation: Jx_Man is a glorious beacon of light

Solved Threads: 245

Jx_Man

Offline

Posting Maven

Re: Program Start Up

Nov 30th, 2008

just copying your .exe file into startup folder.
you can use special folder to do this.

Never tried = Never Know
So, Please do something before post your thread.
* PM Asking will be ignored *

•

Join Date: Sep 2008

Posts: 136

Reputation: rajeesh_rsn is an unknown quantity at this point

Solved Threads: 0

rajeesh_rsn rajeesh_rsn is offline

Offline

Junior Poster

Re: Program Start Up

Dec 1st, 2008

How can I do it in registry editor ...

•

Join Date: Aug 2008

Posts: 710

Reputation: Teme64 will become famous soon enough

Solved Threads: 114

Teme64

Offline

Master Poster

Re: Program Start Up

Dec 1st, 2008

You mean that you want to start up your application from the registry?

Install application to run from the registry:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
''' <summary>
''' Installs an application to start from the registry when Windows starts
''' </summary>
''' <param name="AppName">Application's name</param>
''' <param name="AppPath">Full path to the application</param>
''' <param name="InstallToLocalMachine">Install to LM, otherwise install to current user</param>
''' <returns>True if successfully installed</returns>
''' <remarks>Compatible with Windows XP and Vista</remarks>
Public Function StartUpInstall(ByVal AppName As String, ByVal AppPath As String, _
  ByVal InstallToLocalMachine As Boolean) As Boolean
  '
  ' Install to registry
  ' If LM then uses HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  ' Otherwise uses HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  '
  Dim RegRoot As RegistryKey
  Dim RegKey As RegistryKey
 
  Try
    If InstallToLocalMachine Then
      RegRoot = Microsoft.Win32.Registry.LocalMachine
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.SetValue(AppName, AppPath, RegistryValueKind.String)
      Return True
    Else
      RegRoot = Microsoft.Win32.Registry.CurrentUser
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.SetValue(AppName, AppPath, RegistryValueKind.String)
      Return True
    End If
  Catch ex As Exception
    Return False
  End Try
 
End Function
''' <summary>
''' Installs an application to start from the registry when Windows starts
''' </summary>
''' <param name="AppName">Application's name</param>
''' <param name="AppPath">Full path to the application</param>
''' <param name="InstallToLocalMachine">Install to LM, otherwise install to current user</param>
''' <returns>True if successfully installed</returns>
''' <remarks>Compatible with Windows XP and Vista</remarks>
Public Function StartUpInstall(ByVal AppName As String, ByVal AppPath As String, _
  ByVal InstallToLocalMachine As Boolean) As Boolean
  '
  ' Install to registry
  ' If LM then uses HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  ' Otherwise uses HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  '
  Dim RegRoot As RegistryKey
  Dim RegKey As RegistryKey

  Try
    If InstallToLocalMachine Then
      RegRoot = Microsoft.Win32.Registry.LocalMachine
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.SetValue(AppName, AppPath, RegistryValueKind.String)
      Return True
    Else
      RegRoot = Microsoft.Win32.Registry.CurrentUser
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.SetValue(AppName, AppPath, RegistryValueKind.String)
      Return True
    End If
  Catch ex As Exception
    Return False
  End Try

End Function

Remove application from the registry:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
''' <summary>
''' Uninstalls an application not to start from the registry when Windows starts
''' </summary>
''' <param name="AppName">Application's name</param>
''' <param name="InstallToLocalMachine">Uninstall from LM, otherwise uninstall from current user</param>
''' <returns>True if successfully uninstalled</returns>
''' <remarks>Compatible with Windows XP and Vista</remarks>
Public Function StartUpUnInstall(ByVal AppName As String, _
  ByVal InstallToLocalMachine As Boolean) As Boolean
  '
  ' UnInstall from registry
  ' If LM then uses HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  ' Otherwise uses HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  '
  Dim RegRoot As RegistryKey
  Dim RegKey As RegistryKey
 
  Try
    If InstallToLocalMachine Then
      RegRoot = Microsoft.Win32.Registry.LocalMachine
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.DeleteValue(AppName, False)
      Return True
    Else
      RegRoot = Microsoft.Win32.Registry.CurrentUser
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.DeleteValue(AppName, False)
      Return True
    End If
  Catch ex As Exception
    Return False
  End Try
 
End Function
''' <summary>
''' Uninstalls an application not to start from the registry when Windows starts
''' </summary>
''' <param name="AppName">Application's name</param>
''' <param name="InstallToLocalMachine">Uninstall from LM, otherwise uninstall from current user</param>
''' <returns>True if successfully uninstalled</returns>
''' <remarks>Compatible with Windows XP and Vista</remarks>
Public Function StartUpUnInstall(ByVal AppName As String, _
  ByVal InstallToLocalMachine As Boolean) As Boolean
  '
  ' UnInstall from registry
  ' If LM then uses HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  ' Otherwise uses HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
  '
  Dim RegRoot As RegistryKey
  Dim RegKey As RegistryKey

  Try
    If InstallToLocalMachine Then
      RegRoot = Microsoft.Win32.Registry.LocalMachine
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.DeleteValue(AppName, False)
      Return True
    Else
      RegRoot = Microsoft.Win32.Registry.CurrentUser
      RegKey = RegRoot.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", _
        RegistryKeyPermissionCheck.ReadWriteSubTree, _
        Security.AccessControl.RegistryRights.SetValue)
      RegKey.DeleteValue(AppName, False)
      Return True
    End If
  Catch ex As Exception
    Return False
  End Try

End Function