C# KOD ÖRNEKLERİ: Masa Üstü Menüye Program Eklemek

VB.Net ile ilgileniyorsanız....
Masa Üstü Menüye Program Ekleme Kodları İNDİR

Masa Üstünde Farenin sağ tuşuna tıklandığında çıkan PopUp Menüye Çok sık kullandığınız Programlarınızı eklemek istiyorsanız..
Sadece EXE programını .................................. İNDİR

Imports Microsoft.Win32
'Dosya Menüsüne Uygulama Ekleme örneği

Imports vb = Microsoft.VisualBasic
Imports System.IO
Public Class Form1

#Region " DEĞİŞKEN TANIMLAMALARI..."
    Dim programAdi As String
    Dim VarsayilanAdi As String
    Dim programExe As String
    Dim programYolu As String
    Dim uzanti As String
    Dim DizinYolu As String
    Dim UyPozisyonu As String
    Dim Uygulamaikonu As String
    Dim kayit As RegistryKey
#End Region

#Region " FORM LOAD VE CLOSED..."
    Private Sub KapatPic_Click(sender As System.Object, e As System.EventArgs) Handles KapatPic.Click
        Me.Close()
    End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        '458; 338
        Me.Width = 458
        Me.Height = 339
        MnEkleBtn.BackColor = Color.Gray 'buton enabled=false
    End Sub
#End Region

#Region " FORM TAŞIMA..."
#Region " windows mesajı"
    Const TEST_ET As Integer = &H84
    Const YAKALA As Integer = &H1
    Const BASLIK As Integer = &H2
#End Region

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        Select Case m.Msg
            Case TEST_ET
                MyBase.WndProc(m)
                If m.Result = YAKALA Then m.Result = BASLIK
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
#End Region

#Region " MENÜYE EKLENECEK DOSYAYI SEÇMEK..."

Private Sub DsyAçBtn_Click(sender As System.Object, e As System.EventArgs) Handles DsyAçBtn.Click
        Dim openDLG As New OpenFileDialog
        openDLG.InitialDirectory = GetSetting(Application.ProductName, "Ayarlar", "Uygulama Yolu", "C:\Program Files")

openDLG.Multiselect = False
        openDLG.DefaultExt = "exe"
        openDLG.Filter = "Programlar (*.exe)|*.exe"

If openDLG.ShowDialog = DialogResult.OK Then
            If vb.Right((openDLG.FileName), 4) = ".exe" Then
                UyYoluTxt.Text = openDLG.FileName

Else
                Exit Sub
            End If

MnEkleBtn.BackColor = SystemColors.ButtonFace
            programYolu = Trim(UyYoluTxt.Text)

If Not ikonYoluTxt.Text = "" Then MnEkleBtn.Enabled = True : Call PozisyonYeri()

UygulamaAdıTxt.Text = System.IO.Path.GetFileName(openDLG.FileName)
            programAdi = Mid(UygulamaAdıTxt.Text, 1, Len(UygulamaAdıTxt.Text) - 4) '".exe" kısmını çıkarıyoruz
            UygulamaAdıTxt.Text = programAdi
            UyVarsayılanAdıTxt.Text = programAdi

Dim result As Icon = Nothing
            result = Icon.ExtractAssociatedIcon(openDLG.FileName)
            Me.Icon = result
            Me.ikonPic.Image = Me.Icon.ToBitmap

If Clipboard.ContainsImage() Then 'picturebox 'u  panoya aktar
                ikonPic.Image = Clipboard.GetImage()
            End If
            ikonYoluTxt.Text = openDLG.FileName

If Not UyYoluTxt.Text = "" Then MnEkleBtn.Enabled = True : Call PozisyonYeri()
            SaveSetting(Application.ProductName, "Ayarlar", "Uygulama Yolu", openDLG.InitialDirectory)
        End If

End Sub

#End Region

#Region " MENÜYÜ OLUŞTURMA DÜĞMESİNİ TIKLAMAK"

Private Sub MnEkleBtn_Click(sender As System.Object, e As System.EventArgs) Handles MnEkleBtn.Click
        On Error Resume Next

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(programAdi) 'Sağ Click menüme programAdinı Oluşturdum.

If Clipboard.ContainsImage() Then 'picureboxu  panoya aktar
            ikonPic.Image = Clipboard.GetImage()
        End If
        kayit.SetValue("Icon", ikonYoluTxt.Text)

kayit.SetValue("Position", UyPozisyonu) 'Programın menüdeki pozisyonunu belirledim. Top,center,bottom
        kayit.CreateSubKey("command").SetValue("", programYolu)
        MessageBox.Show("[ " & programAdi & " ]" & " Menüye Eklendi")

Exit Sub

End Sub
#End Region

#Region " UYARI-BİLGİ MESAJLARI..."

Private Sub PictureBox1_MouseLeave(sender As System.Object, e As System.EventArgs) Handles DsyAçBtn.MouseLeave
        Dim tooltip As New ToolTip()
        tooltip.SetToolTip(DsyAçBtn, "Dosya menüsünüe eklenecek Programı seçin")
    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, "Kayıtlı yer : >> HKEY_CLASES_ROOT\DesktopBackground\Shell")
    End Sub

Private Sub MinimixePic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MinimizePic.MouseMove
        MinimizePic.Image = ImMinimize.Images("Mini_R-19x8.png")
    End Sub

Private Sub MinimixePic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles MinimizePic.MouseLeave
        MinimizePic.Image = ImMinimize.Images("Mini_gri-19x8.png")
    End Sub

Private Sub KapatPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles KapatPic.MouseMove
        KapatPic.Image = ImKapat.Images("kapat_R-23x23.png")
    End Sub

Private Sub KapatPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles KapatPic.MouseLeave
        KapatPic.Image = ImKapat.Images("kapat_G-23x23.png")
    End Sub

#End Region

#Region " REGİSTER- KAYIT DEFTERİNİ AÇ..."
    Private Sub RegisterAcPic_Click(sender As System.Object, e As System.EventArgs) Handles RegisterAcPic.Click
        'regedit 'i açar '        'HKEY_CLASSES_ROOT\"*\shell" BURAYA EKLENİYOR
        System.Diagnostics.Process.Start("C:\Windows\System32\regedt32.exe")

End Sub

#End Region

#Region " RADIOBUTONLARLA MENÜYE YERLEŞME YERİNİ SEÇMEK.."

Private Sub RBUst_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RBUst.CheckedChanged
        If RBUst.Checked = False Then Exit Sub
        Me.UyPozisyonuTxt.Text = "top"
        RBUst.ForeColor = Color.Red
        RBOrta.ForeColor = Color.WhiteSmoke
        RBAlt.ForeColor = Color.WhiteSmoke
        SaveSetting(Application.ProductName, "Ayarlar", "RB", Me.UyPozisyonuTxt.Text)
    End Sub

Private Sub RBOrta_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RBOrta.CheckedChanged
        If RBOrta.Checked = False Then Exit Sub
        Me.UyPozisyonuTxt.Text = "center"
        RBOrta.ForeColor = Color.Red
        RBAlt.ForeColor = Color.WhiteSmoke
        RBUst.ForeColor = Color.WhiteSmoke
        SaveSetting(Application.ProductName, "Ayarlar", "RB", Me.UyPozisyonuTxt.Text)
    End Sub

Private Sub RBAlt_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RBAlt.CheckedChanged
        If RBAlt.Checked = False Then Exit Sub
        Me.UyPozisyonuTxt.Text = "bottom"
        RBAlt.ForeColor = Color.Red
        RBOrta.ForeColor = Color.WhiteSmoke
        RBUst.ForeColor = Color.WhiteSmoke
        SaveSetting(Application.ProductName, "Ayarlar", "RB", Me.UyPozisyonuTxt.Text)
    End Sub
    Public Sub PozisyonYeri()

UyPozisyonu = GetSetting(Application.ProductName, "Ayarlar", "RB", "top")
        Select Case UyPozisyonu
            Case "top" : RBUst.Checked = True
            Case "center" : RBOrta.Checked = True
            Case "bottom" : RBAlt.Checked = True
        End Select
        Grup1.Enabled = True
    End Sub

#End Region

#Region " GİRİŞ BİLGİLERİNİ-TEXTLERİ SİLMEK.."

Private Sub GirişSilLbl_Click(sender As System.Object, e As System.EventArgs) Handles GirişSilLbl.Click

UyYoluTxt.Text = ""
        ikonYoluTxt.Text = ""
        ikonPic.Image = Nothing
        UyPozisyonuTxt.Text = ""
        UygulamaAdıTxt.Text = ""
        UyVarsayılanAdıTxt.Text = ""
        Grup1.Enabled = False
        MnEkleBtn.Enabled = False
        MnEkleBtn.BackColor = Color.Gray
    End Sub
#End Region

#Region " BAĞLAM MENÜSÜNÜ SİLMEK.."

Private Sub BaglamMenuSil()

Try
            Dim kayit As RegistryKey
            Dim anahtar As String = "DesktopBackground\Shell"
            Dim SilinecekUygulama, UzantısızDsyAdi As New TextBox
            SilinecekUygulama.Text = System.IO.Path.GetFileName(UyYoluTxt.Text)
            Dim uz As Integer
            uz = (Len(SilinecekUygulama.Text))
            UzantısızDsyAdi.Text = Mid(SilinecekUygulama.Text, 1, uz - 4)
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True).CreateSubKey(UzantısızDsyAdi.Text)
            kayit.DeleteSubKey("command") 'Önce alt menüyü siliiyor 
            'sonra
            '
            kayit = Registry.ClassesRoot.OpenSubKey(anahtar, True)
            kayit.DeleteSubKey(UzantısızDsyAdi.Text) 'Sonra bunu siliyor diğeri zaten önce silinmiş
            MessageBox.Show("[ " & UzantısızDsyAdi.Text & " ]" & " Kaydı silindi.")

Catch ex As Exception
            Debug.WriteLine(ex.Message)
            MessageBox.Show(" Dosya Menüde Kayıtlı değil")
            Debug.WriteLine(ex.StackTrace)
        End Try

End Sub

Private Sub KayıtSilLbl_Click(sender As System.Object, e As System.EventArgs) Handles KayıtSilLbl.Click
        If MnEkleBtn.Enabled = False Then Exit Sub
        Call BaglamMenuSil()
    End Sub
#End Region

End Class

15 Nisan 2013 Pazartesi

Masa Üstü Menüye Program Eklemek