![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проиграть звук из файла!
EgorKA © (2003-06-21 21:42:00)
Нужно проиграть звук из wav файла на харде, как не знаю :)
В инете лежат примеры тока через .rc.
Помогите, кто знает! Зарание спасибо!
Intell (2003-06-23 13:11:00) [1]
var
Form1: TForm1;
const
Flags = SND_FILENAME or SND_ASYNC;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound("hello.wav",0,flags);
end;
...Чуть не забыл, добавь в Uses - MMSystem
DrPass (2003-06-22 15:32:00) [2]
Там, где ты писал SND_FILENAME, допиши еще or SND_ASYNC
Anatoly Podgoretsky (2003-06-22 11:58:00) [3]
Если ничего не помогает, то самое время прочитать инструкцию, в справке подробная информация по всем этим вещам.
Rocker (2003-06-22 11:33:00) [4]
Возможно - используй потоки (TThread).
EgorKA (2003-06-22 01:06:00) [5]
Пока файл звукавой играет, программа замирает, а это не радует!
Возможно ли врубать звук на фоне?
Mihey (2003-06-21 23:54:00) [6]
PlaySound("filename", ...);
DrPass (2003-06-21 23:44:00) [7]
только в примере из инета вместо SND_RESOURCE напиши SND_FILENAME
Song (2003-06-21 22:28:00) [8]
PlaySound()