Label1.Caption := Edit1.Text;
просите предоставить исходный код.
Цитата:
Никто, кроме Вас, не знает, что скрывается под
Цитата:
проигрыватель, написанный мной на основе wmp (элемент activex tWindowsMediaPlayer)
Все кроме Вас это знают.
Но чтобы уже не заводить этот диалог в никуда, вот код
Код:
Код: Выделить всё
***
TWindowsMediaPlayer: WMP;
***
***
***
WMP->URL = "C:\1.avi";
WMP->Controls.Play;Вот. А теперь скажите, как этот код проапгрейдить, чтобы звук шел с нужного мне (а не проигрывателю) устройства.
