Mijn proggama laten opstarten in hetregister

[raymondhvh]

ik wil mijn proggama laten opstarten vanaf waar die staat
dit kan via het register maar ik weet niet hoe
en het moet in het proggama zelf (VB)
of in een .reg / .bat file
ik weet alleen dit
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

want ik will mijn proggje met startup laten runnen
xp en vista .. please help me ! :thumb:

 

[xtremegamer]

snelkoppeling

het gemakkelijkste is gewoon een snelkoppeling van het programma in de map "opstarten" plaatsen die kan je terug vinden in start > (alle) programma's > opstarten

hierdoor word enkel bij jou account het programma opgestart en niet bij elk account.

 

[raymondhvh]

maar het moet automatish gaan want anders moeten de mensen die mijn proggje installen
zelf dat doen ....
ik heb geprobeert met batch maar dan zegt die de syntaxis van de opdracht is onjuist

.bat code :
@echo off
copy R-radio.exe C:\Documents and Settings\All Users\Start Menu\Programs\Startup
copy R-radio.exe C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup
Pause.

help ?

 

[Haaren101]

C:\Documents and Settings\All Users\Start Menu\Programs\Startup

Dit moet tussen quote's want door de spaties gaat het de mist in:

"C:\Documents and Settings\All Users\Start Menu\Programs\Startup"

Ron

 

[raymondhvh]

systeem kan het opgegeven pad niet vinden ??

 

[Haaren101]

Ga in de explorer naar het pad en kopieer dat dan vanaf de adres balk. Dan staan alle punten en komma's goed

Bij mij ziet het er zo uit: C:\Documents and Settings\All Users\Start Menu\Programs

Dus niet nog eens een startup

Ron

 

[raymondhvh]

dat is niet wat opstart
anders zou bij mij windows movie maker opstarten
dat zijn gewoon een paar snellkopelingen denk ik.
en dan kan die het pad nog niet vinden en zonder haakjes zegt die syntaxis error..
michien kan je het rigister aanpassen met een .reg zodat die t wel doet ?

 

[Haaren101]

dat is niet wat opstart
anders zou bij mij windows movie maker opstarten
dat zijn gewoon een paar snellkopelingen denk ik.
en dan kan die het pad nog niet vinden en zonder haakjes zegt die syntaxis error..
michien kan je het rigister aanpassen met een .reg zodat die t wel doet ?

Klopt, ik moest nog wat dieper; dus de juiste is:

"C:\Documents and Settings\All Users\Start Menu\Programs\Startup"

Zoals die hierboven staat werkt het bij mij prima; bijvoorbeeld met cmd:

cd "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"

brengt me daar waar ik zijn moet.

ook:

copy file.doc "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"

werkt goed


Ron

 

[raymondhvh]

ok maar laat maar
ik heb het al in VB ingebouwd

Dim retval As String

retval = Dir$("C:\Documents and Settings\All Users\Menu Start\Programma's\Opstarten\radio.exe")

If retval = "radio.exe" Then

Else
MsgBox("The current directory is " & CurDir())
FileCopy("radio.exe", "C:\Documents and Settings\All Users\Menu Start\Programma's\Opstarten\radio.exe")

End If

End Sub

 

[The Mighty Atom]

Ik heb hier code voor je die het via het register doet.

Het enige dat je hoef te doen is een checkbox op je form plaatsen.

Als deze gechecked word, wordt er een register sleutel aangemaakt in HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Bij het unchecked wordt deze weer weggehaald. Het is een stuk professioneler op deze manier.

Maar aangezien je al een soort van oplossing hebt gevonden, wacht ik maar even je antwoord voordat ik de code post.
De code is bedoeld voor Visual Basic .NET, niet voor VB 6 dus.

 

[raymondhvh]

mag ik hem weten ? tis wel handih

 

[The Mighty Atom]

Plaats een checkbox op je form en noem deze cbStartWithWindows.

Zet Imports Microsoft.Win32 op je form.

Zet dit bovenaan zodat het als een global variable gezien wordt: Dim RegKey As RegistryKey

Plaats dan de volgende code ergens in je code venster:

Private Sub cbStartWithWindows_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbStartWithWindows.CheckedChanged

        Try
            RegKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            If cbStartWithWindows.Checked = True Then
                RegKey.SetValue("blablabla", Application.ExecutablePath)
            Else
                RegKey.DeleteValue("blablabla")
            End If
            RegKey.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub