Film Açtırma

[Kral__]

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?

[KintaRo]

[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

[Kral__]

peki bunu daha fazla uzantılı yapabilirmiyiz?

[Byogulcan]

.avi uzantısının yanına ekleyebilirsin mesela .mp4 ws yapabilirsin.

[Kral__]

strAdres = Dialog.FileBrowse(true, "Film Seçin", _DesktopFolder, "Flimler (.avi)|*.avi|, (.mp4)|*.mp4|", "", "dat", false, false);

böyle mi ?

[Bitmap]

Aynen Öyle..