Остановка видео при закрытии

[Ko$]

Есть форма на ней копка при нажатии на неё открывается самописный проигрыватель Когда воспроизводиш в нём видео всё работает воспроизводится, когда закрываеш окно проигрывателя "красным крестиком" видео продолжает воспроизводиться как это исправить?Т.е. стоп поставить чтоле при закрытии, или убрать стандартные кнопки свернуть, востановить и закрыть и поставить свою кнопку закрыть

[Delphi_ProGer]

Сообщение от Ko$

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

так посмотрите в код, найдите ф-ю остановки видео, при закрытии формы освобождайте ресурсы и т.п.

ставте "Стоп" )

[Ko$]

Посмотрите пожалуйста код (сделайте)

procedure SetVolume(const volL, volR: Word);
 var
   hWO: HWAVEOUT;
   waveF: TWAVEFORMATEX;
   vol: DWORD;
 begin
   // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
   // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume
  waveOutSetVolume(hWO, vol);
   waveOutClose(hWO);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Display:=Form1.sPanel1;

end;

procedure TForm1.sProgressBar1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
  var
   p: real;
begin
if MediaPlayer1.FileName<>'' then  begin
  if ssleft in shift then
  begin
    p:=sProgressBar1.Max/sProgressBar1.Width;
    sProgressBar1.Position:=round(x*p);
    MediaPlayer1.Position:=sProgressBar1.Position;
    MediaPlayer1.Play;
  end;
end;
end;

procedure TForm1.sSpeedButton4Click(Sender: TObject);
begin
if (MediaPlayer1.Mode=mpPlaying) or (MediaPlayer1.Mode=mpPaused) then MediaPlayer1.Stop;
if OpenDialog1.Execute then
begin
FileName:=OpenDialog1.FileName;
Form1.Caption:=FileName;
Form1.sSpeedButton1Click(self);
end;
end;

procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
if (FileName='') or (MediaPlayer1.Mode=mpPlaying) then exit;
begin
if MediaPlayer1.Mode=mpPaused then begin MediaPlayer1.Play;exit;end;
// нажата кнопка Play
MediaPlayer1.FileName:=FileName;
MediaPlayer1.Open; // открыть и проиграть звуковой файл
Form1.MediaPlayer1.DisplayRect := Form1.sPanel1.ClientRect;
Form1.MediaPlayer1.Play;
end;
end;

и звук тихий можно исправить?

[Delphi_ProGer]

Собитие OnClose в форме...там пишите что-то такого:

Mediaplayer1.stop;
Mediaplayer1.Display:=nil;

За звук не подскажу, не знаю