Getting my program to start with Windows

[TarheelsLAX10]

Well ive always wanted my program to startup with windows... I have been told about 2000 times (literaly) just to add it to my startup folder.. this isnt good enough for me and i need my program to control wether it starts up with windows or not... anything will work for me... i dout its this easy but if its possible to just get a timer and fill it up with script to do this thats great plz tell me the script... as i said i dout its done that way... but all i really need is for my program to come up on startup without me adding its shortcut to the startup folder or it least not having me add it manualy... its ok if the program does that by itself the first time u open it, but i would DEFINATLY prefer it to have nothing to do with the windows startup folder and more the program!

[TarheelsLAX10]

Oh My Gosh someone hasta know...

[TarheelsLAX10]

Awww plz someone answer... at least tell me if its possible or not...

[Mushroom Realm]

have your program add its path to the autoexec.bat

[TarheelsLAX10]

have ne script for that?

[Shawn N]

Or you could just search the forums for the 49 threads that've been started on this same exact subject.

[usamaalam]

(Originally posted by Peet)

Make .exe of your application, run it once and restart your computer.

'  General Section
Option Explicit
 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Const REG_SZ = 1                         ' Unicode nul terminated string
Private Const REG_DWORD = 4                      ' 32-bit number
Private Const ERROR_SUCCESS = 0&
 
 
Public Enum pvpHK
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_PERFORMANCE_DATA = &H80000004
End Enum
 
Private Const pvpRunHKey = "Software\Microsoft\Windows\CurrentVersion\Run"
 
 
Private Sub savestring(ByVal Hkey As Long, strPath As String, strValue As String, strData As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegCreateKey(Hkey, strPath, keyhand)
    r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strData, Len(strData))
    If r = 87 Then
        'Tom streng! -> må slettes
        DeleteValue Hkey, strPath, strValue
    End If
    r = RegCloseKey(keyhand)
End Sub
 
Private Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegOpenKey(Hkey, strPath, keyhand)
    r = RegDeleteValue(keyhand, strValue)
    r = RegCloseKey(keyhand)
End Function
 
Public Function RunAtStartup(sAppTitle As String, strsAppName As String)
         savestring pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle, strsAppName
End Function
 
'  Any event such as form load or click of a button
Private Sub Form_Load()
    Text1.Text = "button is clicked"
    
    RunAtStartup App.Title, App.Path & "\" & App.EXEName & ".EXE"
End Sub