procedure TForm1.BitBtn6Click(Sender: TObject); var i:Integer; begin OpenDialog1.Execute; for i:=0 to OpenDialog1.Files.Count-1 do begin MediaPlayer1.FileName:=OpenDialog1.Files; MediaPlayer1.Open; end; end; что хоть тут не так почему не воспроизводит все выделенные файла а играет только один
Ссылка на пост
21 фев 2009 в 21:18