PlaySound

[delphin100]

При воспроизведении мелодии форма не отвечает как этого избежать чтоб мелодия играла и ничего не тормозило.
Пример моего использования:
procedure TForm1.Timer2Timer(Sender: TObject);
begin
showwindow(application.Handle,sw_hi de);
if fileexists('backmusic.wav') then
begin
playsound(pchar('backmusic.wav'),0, snd_nostop);
Timer2.Enabled:=false;
end;
end;

[SunKnight]

procedure TForm1.FormCreate(Sender: TObject);
var MMplay:TMediaPlayer;
begin
        MMplay:=TMediaPlayer.Create(application);
        with MMplay do
        begin
                CreateParented(Form1.Handle);
                FileName:='D:\music\other\et.wav';
                Open;
                Play;
        end;
end;

[delphin100]

медиа плеер я на форму поставил и визибл убрал.
теперь ошибка

[SunKnight]

Ненужно выкидывать компонент на форму, так как он создается
MMplay:=TMediaPlayer.Create(applica tion);
удалите компонент с формы.

[delphin100]

Спасибо Попробую

[delphin100]

Всё-равно таже ошибка

[SunKnight]

uses MPlayer;
.......................
procedure TForm1.Button1Click(Sender: TObject);
var MMplay:TMediaPlayer;
begin
        MMplay:=TMediaPlayer.Create(application);
        with MMplay do
        begin
                CreateParented(Form1.Handle); // укажи хандл своей формы
                FileName:='D:\music\other\et.wav';
                MMplay.Open;
                Play;
        end;
end;

Все работает. (Без компонента.) С медиаплеером бывает проблема что выскакивает такая ошибка, создайте новый проэкт и проэксперементируйте.

[delphin100]

всё спасибо просто у меня 2 раза форма создавалась один раз в проджекте один раз в другой форме

[delphin100]

другой вопрос как с плеером циклически воспроизвести

[SERG1980]

Const SND_SYNC = &H0 ' Файл воспроизводится синхронно
' и функция не возвращает управление до окончания воспроизведения

Const SND_ASYNC = &H1 ' Файл воспроизводится асинхронно
' и функция возвращает управление сразу же после
' начала воспроизведения. Для того, чтобы
' прервать воспроизведение, необходимо вызвать
' функцию sndPlaySound с именем файла, равным ""

Const SND_NODEFAULT = &H2 ' Указывает на то, что если файл,
' заданный первым параметром, не найден, то не должен
' воспроизводиться файл по умолчанию

Const SND_MEMORY = &H4 ' Указывает на то, что имя файла
' соответствует WAV-файлу, находящемуся в памяти,
' например, загруженному из ресурса

Const SND_LOOP = &H8 ' Файл воспроизводится от начала до
' конца бесконечное число раз до тех пор, пока не
' вызвана функцию sndPlaySound с именем файла, равным "".
' При таком воспроизведении должен быть указан и флаг
' SND_ASYNC

Const SND_NOSTOP = &H10 ' Функция возвращает FALSE, если
' в момент ее вызова уже воспроизводится какой-нибудь файл

' Соответственно, реальное обращение
' к функции sndPlaySound может выглядеть примерно так

Result = sndPlaySound("c:\wav\demo.wav", SDN_ASYNC or SND_LOOP)