Search the Community

Merhaba Arkadaşlar Bu Konumda İyi Ya da Kötü Size Program Ekleme ve Silme Kodlarını Vereceğim.. Evet! Forumda Bir Sürü Örnek Var Lakin Araştırıp O Örnekteki Kodları Almaya Üşenenler Var. Bu Yüzden Anlatıyorum Yanlış Veya Eksik Yerler Varsa Üstadlarımdan Rica Etsem Düzeltebilirler mi? Teşekkürler...   Not: Bu Arada Kodlarda Kırmızı Olarak Belittiğim Yerleri Kendi Projenize Göre Değiştire Bilirsiniz!!!   ::Başlayalım::   >En Başta Listbox(ListIcon)'a Program Ekleme Yapalım. Öncelikle Bir Buton Koyalım Ve "On Click" Evresine Aşağıdaki Kodları Yazalım...   [spoiler]tDosya = Dialog.FileBrowse(true, "Dosya Seçin", _DesktopFolder, "EXE dosyaları (*.exe)|*.exe|", "", "", false, true) if tDosya[1] ~= "CANCEL" then sDosya = String.SplitPath(tDosya[1]).Filename .. String.SplitPath(tDosya[1]).Extension; File.Copy(tDosya[1], _SourceFolder .. "\\Programlar\\" .. sDosya, false, true, false, true, nil) Dialog.Message("Bilgi.", "Programınız Eklendi..!") end[/spoiler]   Listbox(ListIcon)'a Program Eklemeyi Böyle Yapıyoruz Bu Kodu Yazınca Bir Pencere Açılacak Ve .exe'li Program Seçeceksiniz Ve Projeye Aktarılacak! Listbox'ta Malesef Program Silme Kodunu Bilmiyorum Bu Konuda Özür Dilerim :(     >Şimdi Sıra Geldi Treelist'e Program Silmeye Bir Treelist Plugini Ekleyelim Evet Karışık Gibi Oldu Anlamadığınız Yereleri Yorum Atarak Sorabilirsiniz Yardımcı Olabiliriz Treelist Plugini Ekledikten Sonra Treelist Pluginine Çift Tıklayın "On Context Menu" Evresine Bu Kodları Yazın Fakat Kodlar Çalışmaz Çünkü Bir Platform Yapmadık Örnekler Forumda Mevcut...   [spoiler] tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "Programı Sil"; tblMenu[1].ID = 100; tblMenu[1].IconID = 11; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; ptMouse = System.GetMousePosition(false, nil); nRes = Application.ShowPopupMenu(ptMouse.X, ptMouse.Y, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false); if(nRes == 100)then ---- Program Silme nSec = TreeList.GetSelected("Plugin1"); nText = TreeList.GetCellText("Plugin1", nSec, 0); File.Delete(_SourceFolder.."\\AutoPlay\\Docs\\"..nText..".exe", false, false, false, DeleteCallback); sys.init(); end [/spoiler]   Bu Kodu Yazdıktan Sonra Treelist Plugininde Bulunan Programın Üstüne Gelip Sağ Tıkladığımızda "Programı Sil" yazar Ve Tıkladığımızda Programı Siler.     >Sıra Treelist Pluginine Program Eklemede Bir Buton veya Başka Bir Şey Örneğin Bir Resim Koyalım Ve "On click" Evresine Aşağıdaki Kodları Yazalım...   [spoiler] ---- Program Ekleme nFile = Dialog.FileBrowse(true, "Program Ekleme", _DesktopFolder, "Program (*.exe)|*.exe|", "", "dat", true, false); for i,v in pairs(nFile) do File.Copy(v, _SourceFolder.."\\AutoPlay\\Docs", true, true, false, true, CopyCallback); end[/spoiler]   Bu kodu Yazdığımızda Ve Koyduğumuz Nesneye Tıkladığımızda Pencere Açılır ve .exe'li Program Seçerek Projeye Aktarılır. "Peki Bunu Treeliste Sağ Tıladığımzda Yapazmıyız?" Sorusuna Cevabım "Yaparız" Aynen Aşağıdaki Kod Gibi. Bu Kodu Yukarıda Belirttiğim Gibi Treelist Pluginin "On Context Menu" Bölümüne Aşağıdaki Kodları Yazalım... :)   [spoiler] tblMenu = {}; tblMenu[1] ={}; tblMenu[1].Text = "Program Ekle"; tblMenu[1].ID = 100; tblMenu[1].IconID = 11; tblMenu[1].Checked = false; tblMenu[1].Enabled = true; ptMouse = System.GetMousePosition(false, nil); nRes = Application.ShowPopupMenu(ptMouse.X, ptMouse.Y, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false); if(nRes == 100)then ---- Program Ekleme nFile = Dialog.FileBrowse(true, "Program Ekleme", _DesktopFolder, "Program (*.exe)|*.exe|", "", "dat", true, false); for i,v in pairs(nFile) do File.Copy(v, _SourceFolder.."\\AutoPlay\\Docs", true, true, false, true, CopyCallback); end sys.init(); end[/spoiler]   Bu Kodu Yazdığımızda Treelist Pluginine Sağ Tıkladığımızda "Program Ekle" Yazısı Çıkar. Program Ekle Yazısına Tıkladığımızda İse Pencere Açılır Ve .exe'li Program Seçerek Projeye Aktarılır...     >Arkadaşlar Benim Anlatacaklarım Bu Kadar Biraz Karışık Olmuş Olabilir Veya Hatalarım Olmuş Olabilir Bu Yüzden Özür Dilerim Düzeltilirse Sevinirim... Bu Kodları Projenize Uyarlamaya bilirsiniz! Projenizi Yorum Olarak Atarsanız Üstadlarım Veya Ben Yardımcı Oluruz  ..Teşekkürler..< Yorumlarınızı Bekliyorum..