Delphi

[Soldie]

Как сделать произгрование звука в Delphi.
Я сделал пргу (типа будильник) мне надо что бы при достижение определенного времени издовался звук.

[Roman Go]

процедура Beep воспроизводит стандартный звуковой сигнал

Добавлено:


Оператор PlaySound('c:\win95\media\Звук Microsoft.wav',0,SND_ASYNC);

воспроизводит асинхронно и однократно стандартный звук Microsoft, который вы обычно можете слышать при открытии Windows.

Оператор PlaySound('SystemStart',0,SND_ASYNC);

воспроизведет тот же самый звук, но обращение к нему производится по системному псевдониму.

Оператор

PlaySound('c:\win95\media\Звук Microsoft.wav', 0,
         SND_ASYNC or SND_LOOP);

многократно асинхронно воспроизводит стандартный звук Microsoft, начиная его снова и снова, как только он заканчивается. При таком операторе надо предусмотреть в приложении какую-нибудь кнопку, по которой воспроизведение прерывается заданием нового звука или выполнением оператора

PlaySound(0,0, SND_PURGE);

[vasketsov]

Soldie
Если надо совсем противный будильник - в kernel32.dll есть функция Beep.