Показать сообщение отдельно
  #2  
Старый 23.07.2017, 19:51
Shaft Shaft вне форума
Новичок
 
Регистрация: 15.05.2013
Сообщения: 74
Версия Delphi: 7/10.4
Репутация: 12
По умолчанию

Код:
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}
Ответить с цитированием