Help

I need to run a programm when windows starts...

a simple program.

How do I do it ?

Please help

Put this code under a Basic Module

VB Code:

Option Explicit
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
 
Private Const REG_SZ = 1 'Unicode nul terminated string
Private Const REG_BINARY = 3 'Free form binary
Private Const REG_DWORD = 4 '32-bit number
Private Const ERROR_SUCCESS = 0& 'unusually registry API functions return 0 on success
 
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 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
 
Public Function RegSaveString(hkey As Long, strPath As String, _
    strName As String, strData As String) As Boolean
 
 Dim hCurKey&
 
 If Right(strPath, 1) = "\" Then strPath = Left(strPath, Len(strPath) - 1)
 
 Call RegCreateKey(hkey, strPath, hCurKey)  'create key/open handle if already exists
 RegSaveString = (RegSetValueEx(hCurKey, strName, 0, REG_SZ, _
    ByVal strData, Len(strData)) = ERROR_SUCCESS) 'set value
 Call RegCloseKey(hCurKey)  'close registry handle
End Function

Call the function anywhere in app

VB Code:

'Add data into the registry
 If RegSaveString(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "MyAPP", REG_SZ, "C:\1.exe")  Then
    MsgBox "Data saved"
 Else
    MsgBox "Fail to save"
 End If

Note:
There different keys you can use are Run, runonce and RunService.
Run: Runs everytime Windows starts
runonce: Runs only once
RunService: Runs much before normal Apps start (usually Anti-Virus programs start here)

Thaks man. I have another problem .....

u can check it too. :D