Воспроизведение звука!

[Небесный]

Тупой вопрос, но не знаю, как сделать.
Перешел из Паскаля на Делфи, вот в Паскале знаю, как произвести звук,
обычная себе функция Sound(n), а вот какая аналогичная функция есть в Делфи?
Заранее благодарен за помощь.

[Stilet]

bool wimdows.Beep(
DWORD dwFreq, // sound frequency, in hertz
DWORD dwDuration // sound duration, in milliseconds
);

[mihali4]

Beep без параметров, воспроизводит "стандартный звук Windows"
или
MessageBeep(UINT uType // тип звука) - можно выбрать кое-что из набора звуков Windows.

[Alex21]

Beep(с параметрами) для этих систем: WinNT/2000/XP.
Для Win9x/me не подходит.

[Небесный]

Сообщение от mihali4

Beep без параметров, воспроизводит "стандартный звук Windows"

А, какие могут быть параметры?

[mihali4]

Сообщение от Небесный

А, какие могут быть параметры?

См. пост от Стилета...
Кроме того, я давал вариант проги для генератора азбуки Морзе (поиск по форуму, ключевое слово "Морзе").

[Небесный]

Всем огромная благодарность за помощь.

[Лубышев]

Для воспроизведения звука можно использовать PlaySound
но нужно добавить в uses модуль Mmsystem
и ты сможешь воспроизвести звук из файла. Если звук не воспроизведется по какой-то причине, то заменяется на стандартный!
Пример:

...
uses
...Mmsystem, ...
...
procedure TForm1.Button1Click(Sender: TObject);
begin
Playsound('sound.wav',0,0);
end;