Kral__ Posted October 8, 2011 Share Posted October 8, 2011 strAd = Dialog.Input("Film Ekleme", "Filmin ismini girin:", "", MB_ICONQUESTION) strAdres = Dialog.FileBrowse(true, "Film Seçin", _DesktopFolder, "Flimler (.avi)|*.avi|", "", "dat", false, false); if strAd ~= "" and strAdres ~= "" and (strAdres[1] ~= "CANCEL") and (strAdres ~= nil) then strDosya = TextFile.ReadToString("AutoPlay\\Docs\\film.ini") strAra = String.Find(strDosya, strAd, 1, false) if strAra ~= -1 then Dialog.Message("", "Bu film zaten mevcut!", MB_OK, MB_ICONSTOP, MB_DEFBUTTON1) else INIFile.SetValue("AutoPlay\\Docs\\film.ini", strAd, "Film", strAd) INIFile.SetValue("AutoPlay\\Docs\\film.ini", strAd, "Adres", strAdres[1]) adres = INIFile.GetValue("AutoPlay\\Docs\\film.ini", strAd, "Adres"); ListBox.AddItem("ListBox1", "- "..strAd.."", adres) end end Kodlarım bunlar ben bu kodları kullandığımda aynı filmi 2 defa ekliyemiyorum ama ben aynı filmi 2defa eklmek istiyorum nasıl yaparız? Quote Link to comment Share on other sites More sharing options...
KintaRo Posted October 8, 2011 Share Posted October 8, 2011 [codebox]strAd = Dialog.Input("Film Ekleme", "Filmin ismini girin:", "", MB_ICONQUESTION) strAdres = Dialog.FileBrowse(true, "Film Seçin", _DesktopFolder, "Flimler (.avi)|*.avi|", "", "dat", false, false); if strAd ~= "" and strAdres ~= "" and (strAdres[1] ~= "CANCEL") and (strAdres ~= nil) then strDosya = TextFile.ReadToString("AutoPlay\\Docs\\film.ini") INIFile.SetValue("AutoPlay\\Docs\\film.ini", strAd, "Film", strAd) INIFile.SetValue("AutoPlay\\Docs\\film.ini", strAd, "Adres", strAdres[1]) adres = INIFile.GetValue("AutoPlay\\Docs\\film.ini", strAd, "Adres"); ListBox.AddItem("ListBox1", "- "..strAd.."", adres) end [/codebox] bu şekilde deneyin Quote Link to comment Share on other sites More sharing options...
Kral__ Posted October 8, 2011 Author Share Posted October 8, 2011 peki bunu daha fazla uzantılı yapabilirmiyiz? Quote Link to comment Share on other sites More sharing options...
Byogulcan Posted October 8, 2011 Share Posted October 8, 2011 .avi uzantısının yanına ekleyebilirsin mesela .mp4 ws yapabilirsin. Quote Link to comment Share on other sites More sharing options...
Kral__ Posted October 8, 2011 Author Share Posted October 8, 2011 strAdres = Dialog.FileBrowse(true, "Film Seçin", _DesktopFolder, "Flimler (.avi)|*.avi|, (.mp4)|*.mp4|", "", "dat", false, false); böyle mi ? Quote Link to comment Share on other sites More sharing options...
Bitmap Posted October 8, 2011 Share Posted October 8, 2011 Aynen Öyle.. 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.