![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#2
|
|||
|
|||
|
Код:
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. |