start ved opstart

Du kan også få Win.ini til at starte et program for dig. Men lave et program der starter sig selv. Et program der ligger på HD kan ikke selv finde ud af at det skal load\'es ind i memory. Du kan også starte et program med MsConfig.

\'----------------------------------------------------- Module1 -----------------------------------------------------
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 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 RegDeleteValue Lib \"advapi32.dll\" Alias \"RegDeleteValueA\" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Const REG_SZ = 1

Public Enum hKey
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_CURRENT_CONFIG = &H80000005
    HKEY_DYN_DATA = &H80000006
End Enum

Function SaveStringValue(hKey As hKey, KeyPath As String, ValueName As String, StringValue As String) As Long
Dim Ret, RetErr As Long
    RegCreateKey hKey, KeyPath, Ret
    RetErr = RegSetValueEx(Ret, ValueName, 0, REG_SZ, ByVal StringValue, Len(StringValue))
    RegCloseKey Ret
End Function

Function DeleteKeySetting(hKey As hKey, KeyPath As String, ValueName As String)
Dim Ret As Long
    RegCreateKey hKey, KeyPath, Ret
    RegDeleteValue Ret, ValueName
    RegCloseKey Ret
End Function
\'----------------------------------------------------- Module1 -----------------------------------------------------

\'----------------------------------------------------- Form1 -----------------------------------------------------
Private Sub Form_Load()
\'Reg Save
Dim Appname As String
  Appname = App.Path & \"\\\" & App.EXEName & \".exe\"
  SaveStringValue HKEY_LOCAL_MACHINE, \"Software\\Microsoft\\Windows\\CurrentVersion\\Run\", \"Program navn\", Appname
End Sub

Private Sub Form_Unload(Cancel As Integer)
\'Reg Slet
  DeleteKeySetting HKEY_LOCAL_MACHINE, \"Software\\Microsoft\\Windows\\CurrentVersion\\Run\", \"Program navn\"
End Sub
\'----------------------------------------------------- Form1 -----------------------------------------------------

Hele den lange forklaring der er kommet fra sjh kunne være klaret med en enkelt lenie i MsCofig.
Den vil i øvrigt også komme til at figurere der.

johs_j >>Det var jo en kode simon_jacobsen skulle bruge og ikke et program, programmet laver han jo nok selv.

ja og jeg takker for den kode jeg har fået (uden og have af prøvet den, men jeg regner med det virker).  :)
Simon