başlat>regedit>hkey_local_machine>software>micrasoft>windows>CurrentVersion >run>......varsayılanın üzerine çift tıkla ve uzantıyı yaz

bu şekilde yapıyorum.benım derdim bunu hazırladığım uygulamada olması

örnekler buldum ama olmadı.



.............................

Bilgisayar her açildiginda program çalissin mi ?

Forma CheckBox Ekleyin.
Kodları Formun Kod Penceresine Yazın..
____________________________
Private Sub Check1_Click()
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")

If Check1.Value = 0 Then
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, "" & "" & "" & ""
End If

If Check1.Value = 1 Then
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End If
End Sub