Skrive til regedit

F.eks. sådan :

Private Declare Function SHSetValue Lib "SHLWAPI.DLL" Alias "SHSetValueA" (ByVal hKey As Long, ByVal pszSubKey As String, ByVal pszValue As String, ByVal dwType As Long, ByVal pvData As String, ByVal cbData As Long) As Long
Const HKEY_LOCAL_MACHINE As Long = &H80000002
Const REG_SZ As Long = 1

Private Sub Command1_Click()
    Dim ans As Long
    Dim val As String
    val = "mitprogram.exe"
   
    ans = SHSetValue(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", _
        "mitProgram", REG_SZ, val, Len(val))
   
End Sub

Skulle ikke mene det er nødvendigt at den skal i regedit for det....
Mener det kan gøres på følgende måde....

Shell("c:\programmer\winamp\winamp.exe","c:\sti\filnavn.mp3"),x
Hvor x er den mode den skal køre i, kan ikke huske dem men mener 0 er hidden, men du kan måske skrive normal i stedet for tal.....

(Linien der begynder med "ans =" er én linie)

tubber >> Sådan som jeg forstår spørgsmålet, ønsker han at tilføje en værdi til reg. databasen.

Jo men den værdi er vel for at eksekvere en fil ?
Det kan også gøres på den anden måde....

Ja, den er for at der eksekveres en fil hver gang windows starter. Det er rigtigt at du kan køre en fil med Shell, men jeg tror ikke, det er det baxos ønsker.

Jeg ønsker at hver gang komputeren tændes skal programmet åbnes

Driis hvor skal jeg skrive dette her henne i koden : Private Declare Function SHSetValue Lib "SHLWAPI.DLL" Alias "SHSetValueA" (ByVal hKey As Long, ByVal pszSubKey As String, ByVal pszValue As String, ByVal dwType As Long, ByVal pvData As String, ByVal cbData As Long) As Long
Const HKEY_LOCAL_MACHINE As Long = &H80000002
Const REG_SZ As Long = 1

Ok :O)

baxos, det skal stå øverst i din form eller module, hvor du skal bruge SHSetValue funktionen.

Driss skal man ikke skrive stien?