Setting Your Application to Automatically Run When Windows Starts
 Download the RegStart Demonstration Application (27kb)
This source code shows how to automatically start an application when Windows starts using the registry.
You can either have the application Auto-Start once next time Windows starts, or everytime Windows starts.
The method uses my cRegistry class to make it easy to get the registry
information.
To see this code working in a full sample application, check out the Goldfish clipboard cache sample application.
Here is a simple Property Get/Property Let pair which you can reuse along with cRegistry to achieve the desired
auto-running method:
Public Enum eAutoRunTypes
    eNever
    eOnce
    eAlways
End Enum
Public Property Let AutoRun(ByVal eType As eAutoRunTypes)
Dim sExe As String
    sExe = App.Path
    If (Right$(sExe, 1) "\") Then sExe = sExe & "\"
    sExe = sExe & App.EXEName
   
    Dim cR As New cRegistry
    cR.ClassKey = HKEY_LOCAL_MACHINE
    If (eType = eNever) Then
        ' Remove entry from always Run if it is there:
        cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run"
        cR.ValueKey = App.EXEName
        On Error Resume Next
        cR.DeleteValue
        Err.Clear
        ' Remove entry from RunOnce if it is there:
        cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce"
        On Error Resume Next
        cR.DeleteValue
        Err.Clear
    ElseIf eType = eOnce Then
        ' Remove entry from always Run if it is there:
        cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run"
        cR.ValueKey = App.EXEName
        On Error Resume Next
        cR.DeleteValue
        Err.Clear
        ' Add an entry to RunOnce (or just ensure the exe name and path
        ' is correct if it is already there):
        cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce"
        cR.ValueKey = App.EXEName
        cR.ValueType = REG_SZ
        cR.Value = sExe
    Else
        ' Remove entry from RunOnce if it is there:
        cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce"
        cR.ValueKey = App.EXEName
        On Error Resume Next
        cR.DeleteValue
        Err.Clear
        ' Add an entry to RunOnce (or just ensure the exe name and path
        ' is correct if it is already there):
        cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run"
        cR.ValueKey = App.EXEName
        cR.ValueType = REG_SZ
        cR.Value = sExe
    End If
       
End Property
Public Property Get AutoRun() As eAutoRunTypes
    Dim cR As New cRegistry
    cR.ClassKey = HKEY_LOCAL_MACHINE
    cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run"
    cR.ValueKey = App.EXEName
    cR.Default = "?"
    cR.ValueType = REG_SZ
    If (cR.Value = "?") Then
        cR.SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce"
        If (cR.Value = "?") Then
            AutoRun = eNever
        Else
            AutoRun = eOnce
        End If
    Else
        AutoRun = eAlways
    End If
End Property
Back to top
Back to Source Code Overview
|
