kurt0619 Posted May 31, 2012 Share Posted May 31, 2012 Arkadaşlar treelist sağ tık program ekle,kaldır, kaldr eklemek istiyorum forumda bu kodları buldum bi bakarmısınız hangi kodları eklemeliyim [b][size="4"][color="#FF0000"][color="#8B0000"]On ContextMenu evresine:[/color][/color][/size][/b] [size="3"][b][code]tMenu = {}; tMenu[1] ={}; tMenu[1].Text = "Menu 1"; tMenu[1].ID = 100; tMenu[1].IconID = 15; tMenu[1].Checked = false; tMenu[1].Enabled = true; tMenu[2] ={}; tMenu[2].Text = "Menu 2"; tMenu[2].ID = 101; tMenu[2].IconID = 1; tMenu[2].Checked = false; tMenu[2].Enabled = true; nMenu = Application.ShowPopupMenu(System.GetMousePosition(true, Application.GetWndHandle()).X, System.GetMousePosition(true, Application.GetWndHandle()).Y, tMenu, TPM_LEFTALIGN, TPM_TOPALIGN, true, true) if nMenu == 100 then -- menu 1 seçilince çalışacak kodlar elseif nMenu == 101 then -- menu 2 seçilince çalışacak kodlar end [/code][/b][/size] Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted May 31, 2012 Share Posted May 31, 2012 (edited) Program Ekle: ---- Program Ekleme kodu KintaRo'ya teşekkürler... 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 .. "\\Autoplay\\Docs\\Programlar\\" .. sDosya, false, true, false, true, nil) Dialog.Message("Program Eklendi.", "Program Başarıyla Eklendi!") ---- Program Sil nSec = TreeList.GetSelected("Plugin1"); nText = TreeList.GetCellText("Plugin1", nSec, 0); result = Dialog.Message(""..nText.." Siliniyor", ""..nText.." Adlı Programı Silmek İstediğinizden Eminmisiniz?.", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); if result == 6 then File.Delete(_SourceFolder.."\\AutoPlay\\Docs\\Programlar\\"..nText..".exe", false, false, false, DeleteCallback); elseif result == 7 then end Edited May 31, 2012 by nightmare3519 Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted May 31, 2012 Share Posted May 31, 2012 Program Ekle: ---- Program Ekle 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 .. "\\Autoplay\\Docs\\Programlar\\" .. sDosya, false, true, false, true, nil) Dialog.Message("Program Eklendi.", "Program Başarıyla Eklendi!") ---- Program Sil nSec = TreeList.GetSelected("Plugin1"); nText = TreeList.GetCellText("Plugin1", nSec, 0); result = Dialog.Message(""..nText.." Siliniyor", ""..nText.." Adlı Programı Silmek İstediğinizden Eminmisiniz?.", MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); if result == 6 then File.Delete(_SourceFolder.."\\AutoPlay\\Docs\\Programlar\\"..nText..".exe", false, false, false, DeleteCallback); elseif result == 7 then end Dosya konumlarını ayarlarsın Quote Link to comment Share on other sites More sharing options...
kingdown Posted June 30, 2012 Share Posted June 30, 2012 yaha bu kodları nereye koycam nightmare3519 Quote Link to comment Share on other sites More sharing options...
pilgetir Posted June 30, 2012 Share Posted June 30, 2012 Anlayamayacak bir şey yok üsttekini Program Ekle butonuna alttakini Program Sil butonuna. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.