Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Мар

Запустить и остановить проигрывание музыки

Posted by Chas under Delphi

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

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;

тема на форуме