При остановке воспроизведения музыки программа зависает (Delphi7)

[munthrekosh]

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

procedure TForm2.Button1Click(Sender: TObject);
begin
  If Button1.Caption='Play'
    then
      begin
        Button1.Caption:='Stop';
        PlaySound('1.wav', 0, SND_ASYNC or SND_LOOP);
      end
    else
      begin
        Button1.Caption:='Play';
        PlaySound('1.wav', 0, SND_PURGE);
        label6.Caption:=svtxt;
      end;
  label6.Visible:= not label6.Visible;
end;

Проблема вот в чём... У меня на компьютере работает всё превосходна, а вот на остальных при остановке воспроизведения программа виснет, а музыка продолжает играть.

Если что вот прога http://narod.ru/disk/41129848001/%D0...D0%BE.rar.html
вес ~30мб по большей части из-за музыки.

[GoodDA]

немного не в тему- может проще использовать TMediaPlayer ?

[munthrekosh]

Сообщение от GoodDA

немного не в тему- может проще использовать TMediaPlayer ?

В тему. В том то и беда, что я не хочу использовать TMediaPlayer. Всё что мне надо это только вот эта одна кнопка...

Вот из-за чего может такая проблема вылезать

[Пепел Феникса]

изза того что PlaySound не предназначена для воспроизведения музыки.

возьмите TMediaPlayer, скройте его(Visible:=false), и просто применяйте его методы.

[raxp]

mcisendstring() и не надо использовать обертку TMediaPlayer

[munthrekosh]

Сообщение от raxp

mcisendstring() и не надо использовать обертку TMediaPlayer

? а поподробнее можно

[Пепел Феникса]

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[SERG1980]

Вот так попробуйте

procedure TForm2.Button1Click(Sender: TObject);
begin
  If Button1.Caption='Play'
    then
      begin
         Button1.Caption:='Stop';
         mciSendString('open waveaudio shareable',nil,0,0);
         mciSendString(PChar('Play 1.wav'),nil,0,0);
      end
    else
      begin
        Button1.Caption:='Play';
        mciSendString('stop 1.wav',nil,0,0);
         mciSendString('close waveaudio',nil,0,0);
        label6.Caption:=svtxt;
      end;
  label6.Visible:= not label6.Visible;
end;

или так

procedure TForm2.Button1Click(Sender: TObject);
begin
  If Button1.Caption='Play'
    then
      begin
         Button1.Caption:='Stop';
         SndPlaySound('1.wav',SND_ASYNC);
      end
    else
      begin
        Button1.Caption:='Play';
        SndPlaySound(nil,0);
        label6.Caption:=svtxt;
      end;
  label6.Visible:= not label6.Visible;
end;