Проблема с TMediaPlayer

[Yura_ua]

Когда я пытаюсь воспроизвести wav с помощью TMediaPlayer, то получаю ошибку: "Устройство MCI не поддерживает даную команду". Как быть и что делать?
Вот код программы:

procedure Form1.button1click(sender:TObject);
begin
with Form1.MediaPlayer1 do
begin
devicetype:=dtWaveAudio;
fileName:='d:\1\1.wav');
open;
play;
end;
end;

[BBB]

Если нужно просто воспроизвести WAV-файл, то не проще ли воспользоваться API-функцией PlaySound?

[Yura_ua]

Вообще-то проще, но интересно, почему он не работает?
А PlaySound-ом и так пользуюсь. Кстати, а можно ли "спрятать" WAV или MIDI в RES-файл?

[BBB]

Про MIDI точно не скажу... не знаю ((c) "Тихие троечники")
А вот WAV как аз недавно запихивал в ресурс.

Запихивал через Wizard (СИшный, MS вижуал студийный), а полулось вот что:

В файле resourse.h обявление константы-ID Ресурса:

Код: Выделить всё

#define IDR_MYSOUND_WAV                   134

В ресурс-файле:

Код: Выделить всё

IDR_MYSOUND_WAV           WAVE    DISCARDABLE     "res\\signal.wav"

А воспроизведние (извиняйте, что СИшная нотация ):

Код: Выделить всё

       if (PlaySound (
            MAKEINTRESOURCE (IDR_MYSOUND_WAV),
            AfxGetResourceHandle ( ),
             SND_RESOURCE | SND_ASYNC)) {
        };

[Yura_ua]

Спасибо, работает!

[Yura_ua]

Немного попользовался PlaySound и теперь у меня не читают WAV WinAmp, MediaPlayer и BSPlayer. Что случилось?