Jump to content

cnraltnl

Yeni Üye
  • Posts

    8
  • Joined

  • Last visited

About cnraltnl

Profile Information

  • Male

Recent Profile Visitors

191 profile views

cnraltnl's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. peki yinede teşekkür ederim yardımların için saol
  2. 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
  3. 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 ?
  4. 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.
  5. hadia onu nasıl yapcam ki bilmiyorum yardımcı olurmusun bu konuda ?
  6. farklı yöntemler derken nasıl bi farklı yöntem denemeliyim dosyanın yolunumu degıstırmem gerekıyor ?
  7. 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 ?
  8. 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.
  9. [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]
×
×
  • Create New...