Проигрыватель встроенный в прогу

[*Devil*]

У меня есть почти готовая прога из 3 формы...
1 форма это заставка
2 это главная
3 опции
Мне надо сделать так чтобы музыка начинала играть сома со второй формы, а на третей можно было изменить композицию из списка песен, отключить её или сделать звук потише.
Может кто раньше писал что то такое и может мне описать весь этот процесс, а то я до этого с такими компонентами не встречался...

[ZhekON]

на 3-й форме пишэш:
uses forma2
и используеш все возможности forma2 в 3-й форме. Всё просто!)

[troo]

Короче если ты хочешь что-либо сделать на одной форме, ятоб это повлияло на другую форму просто ссылайся на нужную форму.
Ну например:

процедура Кнопка1Клик...(3 форма)
бегин
Форма1.Медиапрогрыватель.Пауза;
енд;
.
Короче типа того))

[*Devil*]

Ну более или менее понятно.А как сделать чтоб эту песню можно было остановить или сделать тише(опишите более подробно).

[Shurik Hacker]

Form2.MediaPlayer1.Stop - остонавливает нашу песнь.
Form2.MediaPlayer1.Position:=0; - а это для точности. (в начало)

Для того чтобы Изменить и Узнать Громкость используй это:

function GetWaveVolume(var LVol: DWORD; var RVol: DWORD): Boolean;
var
WaveOutCaps: TWAVEOUTCAPS;
Volume: DWORD;
begin
Result := False;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
begin
Result := WaveOutGetVolume(WAVE_MAPPER, @Volume) = MMSYSERR_NOERROR;
LVol := LoWord(Volume);
RVol := HiWord(Volume);
end;
end;
function SetWaveVolume(const AVolume: DWORD): Boolean;
var
WaveOutCaps: TWAVEOUTCAPS;
begin
Result := False;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
Result := WaveOutSetVolume(WAVE_MAPPER, AVolume) = MMSYSERR_NOERROR;
end;