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

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