Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!
Kod:
[COLOR=#000000][FONT=Verdana]Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana] Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\\\\Run", True)[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana] key.SetValue(name, path)[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana]End Sub[/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana]veya tek satır kodlada yapabiliriz. ; [/FONT][/COLOR]
[COLOR=#000000][FONT=Verdana] Registry.CurrentUser.CreateSubKey("SOFTWARE\\MICROSOFT\\WINDOWS\\CURRENTVERSION\\RUN").SetValue(Application.ProductName.ToString, Application.ExecutablePath.ToString)[/FONT][/COLOR]
