|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Код:
program WavPlayer; {$APPTYPE CONSOLE} uses SysUtils,MMSystem; begin if ParamStr(1)<>'' then SndPlaySound(PAnsiChar(ParamStr(1)),snd_Sync); end. Если нужно воспроизводить только один конкретный файл то Код:
if ParamStr(1)<>'' then SndPlaySound(PAnsiChar(ParamStr(1)),snd_Sync); Код:
SndPlaySound(PAnsiChar('FileName.wav'),snd_Sync); Последний раз редактировалось Shaft, 23.07.2017 в 19:58. |