Код:
program WavPlayer;
{$APPTYPE CONSOLE}
uses
SysUtils,MMSystem;
begin
if ParamStr(1)<>'' then SndPlaySound(PAnsiChar(ParamStr(1)),snd_Sync);
end.
Запуск: Перетаскивай на exe wav файл для воспроизведения.
Если нужно воспроизводить только один конкретный файл то
Код:
if ParamStr(1)<>'' then SndPlaySound(PAnsiChar(ParamStr(1)),snd_Sync);
заменить на
Код:
SndPlaySound(PAnsiChar('FileName.wav'),snd_Sync);
Чтобы окно не отображалось закомментируй или удали директиву {$APPTYPE CONSOLE}