arkadaşlar program normal açılıyor ama program ekle diyorum ekleyeceğim programı seçiyorum ekleme bittikten sonra bu hatayı alıyorum
burda yanlı birşeylermi var anlamadım
[spoiler]nSec = TreeList.GetSelected("Plugin1")
if nSec ~= -1 then
tblMenu = {};
tblMenu[1] ={};
tblMenu[1].Text = "Programı Sil";
tblMenu[1].ID = 100;
tblMenu[1].IconID = 11;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] ={};
tblMenu[2].Text = "Yeniden Adlandır";
tblMenu[2].ID = 101;
tblMenu[2].IconID = 1;
tblMenu[2].Checked = false;
tblMenu[2].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 Sil
nSec = TreeList.GetSelected("Plugin1");
nText = TreeList.GetCellText("Plugin1", nSec, 1);
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, nil);
elseif result == 7 then
end
Program.Listele();
end
if(nRes == 101)then
nSec = TreeList.GetSelected("Plugin1");
nText = TreeList.GetCellText("Plugin1", nSec, 1);
result = Dialog.Input("Yeniden Adandır", "Program Adı:", ""..nText.."", MB_ICONQUESTION);
if result == "CANCEL" then
else
File.Rename(_SourceFolder.."\\AutoPlay\\Docs\\Programlar\\"..nText..".exe" , _SourceFolder.."\\AutoPlay\\Docs\\Programlar\\"..result..".exe", "");
end
Program.Listele();
end
else
tblMenu = {}
tblMenu[1] = {}
tblMenu[1].Text = "Programı Ekle";
tblMenu[1].ID = 102;
tblMenu[1].IconID = 11;
tblMenu[1].Checked = false;
tblMenu[1].Enabled = true;
tblMenu[2] = {}
tblMenu[2].Text = "Yenile";
tblMenu[2].ID = 103;
tblMenu[2].IconID = 1;
tblMenu[2].Checked = false;
tblMenu[2].Enabled = true;
ptMouse = System.GetMousePosition(false, nil);
nRes = Application.ShowPopupMenu(ptMouse.X, ptMouse.Y, tblMenu, TPM_RIGHTALIGN, TPM_TOPALIGN, true, false);
if (nRes == 102) then
Sec = Dialog.FileBrowse(true, "Program Seçiniz..", _DesktopFolder, "Katılımsız Programlar|*.exe|", "", "dat", true, false);
if Sec[1] ~= "CANCEL" then
cnt = Table.Count(Sec);
for i,v in pairs (Sec) do
Split = String.SplitPath(v);
function FileProgress(Source, Destination, Copied, Total, FileCopied, FileTotal)
Progress.SetCurrentPos("Progress1", (Copied / Total) * 100);
isim = String.SplitPath(Destination).Filename..String.SplitPath(Destination).Extension
kopya = String.GetFormattedSize(Copied, FMTSIZE_MB, true)
toplam = String.GetFormattedSize(Total, FMTSIZE_MB, true)
yuzde = Math.Floor((Copied / Total) * 100);
Progress.SetText("Progress1", "["..i.."/"..cnt.."]".."%"..yuzde.." "..isim.." Kopyalanıyor ["..kopya.."/"..toplam.."]");
Progress.SetCurrentPos("Progress1", ((Copied/Total) * 100));
return true
end
Progress.SetProperties("Progress1", {TooltipText = "Kopyalanan Program : "..Split.Filename } );
File.Copy(v, _SourceFolder.."\\AutoPlay\\Docs\\Programlar\\"..Split.Filename..".exe", true, true, false, true, FileProgress);
Progress.SetText("Progress1", "");
Progress.SetCurrentPos("Progress1", 0);
Progress.SetProperties("Progress1", {TooltipText = ""});
end
end
Program.TreeList();
Program.Listele();
Program.Say()
end
if (nRes == 103) then
Program.TreeList();
Program.Listele();
Program.Say()
end
end[/spoiler]