Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как проиграть несколько звуковой файлов wav?

Автор: Volkogriz 25.11.2008, 10:08

Доброе Время суток!
Подскажите пожалуйста как сделать Чтобы с помощью функции sndPlaySound, при нажатии на одну и туже кнопку всегда играла разная музыка, выбранная из указанной папке произвольно!?
Заранее благодарен!!!
С уважением Volkogriz

Автор: Alexeis 25.11.2008, 10:25

Создай список файлов, затем при помощи функции Random получи случайный номер, выбери из списка файлов музыкальный файл находящийся по этому индексу и запусти на воспроизведение smile

Автор: Volkogriz 25.11.2008, 11:00

Alexeis
А можно по подробней пожалуйста!!!
Я непойму про писак!(
Вот мой код:

Код


var
  RunPathList: array[1..999] of string;
...
ini:TIniFile;
k:integer;
begin
ini:=TiniFile.Create(ExtractFilePath(Application.ExeName)+'config.sys');
KeiMusic[k]:= Path+ini.ReadString('Articles'+Format('%.3d',[n]), 'KeiMusic', '');
 end;
.....
......
Label7.Caption:= KeiMusic[ListBox.ItemIndex + 1];
..........

procedure TForm1.ButtonMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
sndPlaySound(pchar(Label7.Caption), SND_ASYNC)


end;

Заранее благодарен!!!
С уважением Volkogriz!!!

Автор: Alexeis 25.11.2008, 11:09

Цитата(Volkogriz @ 25.11.2008, 10:00

)

А можно по подробней пожалуйста!!!
Я непойму про писак!(

Да обычный TStringList набить путями к аудио файлам. По индексу можно получить любую строку из списка.

Автор: Volkogriz 25.11.2008, 11:17

Alexeis
Спасибо!!!! smile

Разабрался! smile