cnraltnl
Yeni Üye-
Posts
8 -
Joined
-
Last visited
cnraltnl's Achievements
Newbie (1/14)
0
Reputation
-
peki yinede teşekkür ederim yardımların için saol
-
yaa benım hazırladıgım guzel bısı oldu bayagı emek verdım kaç gunden berı onunla ugrasıyorum emegımın bosuna gıtmesını ıstemıyorum
-
bu kodlar elinde mevcutmu peki sen kodları bana versen bven gereken yerlere yerleştirsem kodları ? nSayi = 0; function sec(sObject, sName) bChecked = CheckBox.GetChecked(sObject) if bChecked then INIFile.SetValue("Autoplay\\Docs\\kurulum.ini", sName, "kur", "1") nSayi = nSayi+1 Label.SetText("sayi", nSayi .. " adet program seçildi") else INIFile.DeleteSection("Autoplay\\Docs\\kurulum.ini", sName) nSayi = nSayi-1 Label.SetText("sayi", nSayi .. " adet program seçildi") end end function kontrol() Label.SetText("sayi", nSayi .. " adet program seçildi") tSections = INIFile.GetSectionNames("AutoPlay\\Docs\\kurulum.ini") if tSections ~= nil then for i=1,100 do for y in pairs(tSections) do if CheckBox.GetText("CheckBox" .. i) == tSections[y] then CheckBox.SetChecked("CheckBox" .. i, true) end end end else for i=1,100 do CheckBox.SetChecked("CheckBox" .. i, false) end end end function kur() tTablo = INIFile.GetSectionNames("AutoPlay\\Docs\\kurulum.ini") if tTablo ~= nil then Window.Hide(Application.GetWndHandle()) StatusDlg.SetMeterRange(0, Table.Count(tTablo)) StatusDlg.SetMeterPos(0) for i in pairs(tTablo) do if INIFile.GetValue("AutoPlay\\Docs\\kurulum.ini", tTablo[i], "kur") == "1" then nPos = StatusDlg.GetMeterPos() StatusDlg.SetMeterPos(nPos+1) nPos=nPos+1 StatusDlg.Show(MB_ICONINFORMATION, false); StatusDlg.SetTitle("Programlar kuruluyor..."); StatusDlg.SetMessage("%" .. Math.Round(100/nSayi*nPos, 0) .. " | " .. tTablo[i] .. " Kuruluyor...") File.Run("AutoPlay\\Docs\\Programlar\\" .. tTablo[i] .. ".exe", "", "AutoPlay\\Docs\\Programlar", SW_SHOWNORMAL, true) Application.Sleep(1000) StatusDlg.SetMessage(tTablo[i] .. "Kuruldu!") end end File.Delete("AutoPlay\\Docs\\kurulum.ini", false, false, false, nil) StatusDlg.SetMeterPos(0) Label.SetText("sayi", 0 .. " adet program seçildi") for i=1,100 do CheckBox.SetChecked("CheckBox" .. i, false) end StatusDlg.Hide() Dialog.Message("Kurulum", "Seçilen " .. nSayi .. " programın kurulumu tamamlandı", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1) nSayi = 0; Window.Show(Application.GetWndHandle()) else Dialog.TimedMessage("Hata", "Hiç bir program seçilmedi!", 1000, MB_ICONEXCLAMATION) end end Bunlar Kullandıgım Global Functions kodları bunlardamı sorun var ?
-
anlatabıldınde biraz karısık ben daha yenı başladım böle duzenek hazaırlama işine fazla bılmıyorum yani anlıcağın.
-
hadia onu nasıl yapcam ki bilmiyorum yardımcı olurmusun bu konuda ?
-
farklı yöntemler derken nasıl bi farklı yöntem denemeliyim dosyanın yolunumu degıstırmem gerekıyor ?
-
ben aynı şekilde yaptım yanlız bi sorun var yardımcı olurmusunuz ? Dvd ye çektıgım zaman hiç bir program bulunamadı dıyo ama bılgısayarda gayet ıyı calısıyo neden acaba ?
-
slm Arkadaşlar Size uurçlkky Adlı kullanıcı arkadasımızın yaptıgı xp leri önerırım hatasız sorunsuz.kullanabılırsınız.www.ultraxp.indirmeliyiz.com adresınden ulasabılırsınız.
-
[center][size="5"][b]Doğum günün kutlu olsun kankss [/b][/size] [img]http://www.1resimler.com/data/media/1262/kurukafa_pasta.jpg[/img][/center]