C# KOD ÖRNEKLERİ: Registere hızlı Ulaşma

RegEditAç_Skinli_EXE.rar İNDİR

RegEditAç_Skinli_KOD.rar İNDİR

Sadece Exe Programını İNDİR Kodlarını İNDİR

RegEdit (KayıtDefteri) ile fazla uğraşanların işini kolaylaştıracak bir araç. Masa Üstündeki PopUp Menüden hemen ulaşma imkanı...İstenilen zaman eklenip kaldırılabilir.Windows başlarken Otomatik bu da başlayabilme seçeneği... 27.03.2013 Güncellendi

Imports Microsoft.Win32 'register için
Public Class Form1

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        SaveSetting(Application.ProductName, Application.ProductName, "left", Me.Left)
        SaveSetting(Application.ProductName, Application.ProductName, "top", Me.Top)
        SaveSetting(Application.ProductName, Application.ProductName, "Acilista Baslat", AcilistaBaslatChk.Checked)

End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Left = GetSetting(Application.ProductName, Application.ProductName, "left", 350)
        Me.Top = GetSetting(Application.ProductName, Application.ProductName, "top", 200)
        Me.AcilistaBaslatChk.Image = ImageLst.Images("Windows_Logosu.ico")
        Me.AcilistaBaslatChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Acilista Baslat", True)
        If Me.AcilistaBaslatChk.Checked = False Then
            Me.Label3.ForeColor = Color.Black
            Me.Label3.Text = "Windowsla BAŞLAMIYOR"
        Else
            Me.Label3.ForeColor = Color.DarkRed
            Me.Label3.Text = "Windowsla BAŞLIYOR"
        End If
        BaglamMenuChk.Checked = GetSetting(Application.ProductName, Application.ProductName, "Bağlam Menüsü", False)

End Sub

Private Sub RegisterAcPic_Click(sender As System.Object, e As System.EventArgs) Handles RegisterAcPic.Click
        System.Diagnostics.Process.Start("C:\Windows\System32\regedt32.exe")
    End Sub

Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click
        RegisterAcPic_Click(sender, e)
    End Sub

Private Sub BaglamMenuChk_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles BaglamMenuChk.CheckedChanged
        If BaglamMenuChk.Checked = True Then
            On Error Resume Next
            BaglamMenuChk.Image = ImageLst.Images("Bağlam_Menu_2.ico")
            BaglamMenuChk.Checked = True

Dim kayit As RegistryKey
            Dim anahtar As String = "DesktopBackground\Shell"  'Masaüstüne boş alana tıklayınca gelmesini istiyorsan regedit te kullanman gereken alan 
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True).CreateSubKey(Application.ProductName) 'Sağ Click menüme programAdinı Oluşturdum.

Dim icoYol As String = (Application.StartupPath & "\" & Application.ProductName & ".exe") '        'MessageBox.Show(icoYol)

kayit.SetValue("Icon", icoYol)

kayit.SetValue("Position", "Top") 'Programın menüdeki pozisyonunu belirledim. Top,center,bottom
            kayit.CreateSubKey("command").SetValue("", Application.StartupPath & "\" & Application.ProductName & ".exe")
            Label2.ForeColor = Color.DarkRed
            Label2.Text = "Masaüstü Menüye Eklendi"

Else
            Call BaglamMenuSil()
            BaglamMenuChk.Image = ImageLst.Images("Bağlam_Menu.ico")
            BaglamMenuChk.Checked = False
        End If
        SaveSetting(Application.ProductName, Application.ProductName, "Bağlam Menüsü", BaglamMenuChk.Checked)

End Sub

Private Sub BaglamMenuSil()

Try
            Dim kayit As RegistryKey
            Dim anahtar As String = "DesktopBackground\Shell"
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True).CreateSubKey(Application.ProductName)
            kayit.DeleteSubKey("command") 'Önce alt menüyü siliiyor 
            'sonra
            '
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True)
            kayit.DeleteSubKey(Application.ProductName) 'Sonra bunu siliyor diğeri zaten önce silinmiş
            Label2.ForeColor = Color.Black
            Label2.Text = "Masaüstü Menüsünden Silindi"

Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(ex.Message)
            Debug.WriteLine(ex.StackTrace)
        End Try

End Sub

Private Sub BaglamMenuChk_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BaglamMenuChk.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(BaglamMenuChk, " Programınızı Masa Üstündeki PopUp Menüye Ekleyin")

End Sub

Private Sub AcilistaBaslatChk_Click(sender As System.Object, e As System.EventArgs) Handles AcilistaBaslatChk.Click
        On Error Resume Next
        If AcilistaBaslatChk.Checked = False Then
            'Açılışta (çalıştırma) kayıt varsa bile sil
            Dim key As Microsoft.Win32.RegistryKey
            key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            key.DeleteValue("RegEditAç")
            Label3.ForeColor = Color.Black
            Label3.Text = "Windowsla BAŞLAMIYOR"
        Else
            'Açılışta(çalıştır)
            Label3.ForeColor = Color.DarkRed 'System.Drawing.Color.Black
            Label3.Text = "Windowsla BAŞLIYOR"
            My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)
        End If
    End Sub
    Private Sub RegisterAcPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles RegisterAcPic.MouseLeave
        'Dim tooltip As New ToolTip()
        'tooltip.SetToolTip(RegisterAcPic, " Registeri Aç")

RegisterAcPic.Image = ImageLst.Images("RegisterICO.ico")
    End Sub

Private Sub RegisterAcPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RegisterAcPic.MouseMove
        RegisterAcPic.Image = ImageLst.Images("ReisteriAç_ortak2.ico")
    End Sub

End Class

23 Mart 2013 Cumartesi

Registere hızlı Ulaşma