Vb kodlarıyla daha iyi olur. Teşekkür Japon

Bu kadar şey yazana kadar regeditde Software\Microsoft\Windows\CurrentVersion\Run anahtarına girerim oraya eklerim. Onuda beceremessem eski kullanmadığım kayıtlardaki kullanıllmayan yerdeki kaydı değiştirrim Şaka bi yana paylaşım için sağol

O kadar zahmete bile gerek yok yaf. Direk gir Başlat-Başlangıç, oraya link oluştur. Tamamdır işte. Güzel bilgi sağol..

Program, sistem kayi defteri ayarlariyla Windows açilisinda otomatik olarak baslar Kod: Public Enum eAutoRunTypes eNever eOnce eAlways End Enum Public Property Let AutoRun Dim sExe As String sExe = App. Path If (Right$(sExe, 1) <> "\") Then sExe = sExe & "\" sExe = sExe & App. EXEName Dim cR As New cRegistry cR. ClassKey = HKEY_LOCAL_MACHINE If Then ' Remove entry from always Run if it is there: cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run" cR. ValueKey = App. EXEName On Error Resume Next cR. DeleteValue Err. Clear ' Remove entry from RunOnce if it is there: cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce" On Error Resume Next cR. DeleteValue Err. Clear ElseIf eType = eOnce Then ' Remove entry from always Run if it is there: cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run" cR. ValueKey = App. EXEName On Error Resume Next cR. DeleteValue Err. Clear ' Add an entry to RunOnce : cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce" cR. ValueKey = App. EXEName cR. ValueType = REG_SZ cR. Value = sExe Else ' Remove entry from RunOnce if it is there: cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce" cR. ValueKey = App. EXEName On Error Resume Next cR. DeleteValue Err. Clear ' Add an entry to RunOnce : cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run" cR. ValueKey = App. EXEName cR. ValueType = REG_SZ cR. Value = sExe End If End Property Public Property Get AutoRun As eAutoRunTypes Dim cR As New cRegistry cR. ClassKey = HKEY_LOCAL_MACHINE cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\Run" cR. ValueKey = App. EXEName cR. Default = "?" cR. ValueType = REG_SZ If Then cR. SectionKey = "Software\Microsoft\Windows\CurrentVersion\RunOnce" If Then AutoRun = eNever Else AutoRun = eOnce End If Else AutoRun = eAlways End If End Property