звук на клавиатуре

[Михаил Юрьевич]

Как при вводе текста в текстовый редактор
воспроизводить звук при нажатии на клавиатуру
что-то типа RichEdit1KeyPress-beep но только вместо beep
mp3 или wav

[DOLBY]

PlaySound(pszSound: Pchar; hmod: HINST; fdwSound: Cardinal):boolean; stdcall; external 'winmm.dll';

pszSound - имя воспроизводимого файла;

hmod - дескриптор программы, если звук берётся из ресурсного файла, иначе содержит 0;

fdwSound - параметр, уточняющий воспроизведение; его значения:

SND_ASYNC - звук воспроизводится асинхронно(ф-ция возвращает управление сразу после обращения к ней);

SND_LOOP - звук воспроизводится постоянно, пока не будет вызвана та же функция с параметром 0;

SND_SYNC - воспроизводит звук синхронно и возвращает управление после окончания воспроизведения;

SND_PURGE - прекращает воспроизведение всех звуков и воспроизводит только этот;

SND_NOWAIT - если устройство вывода звука занято, то звук не будет воспроизводиться;


Вот пример:

PlaySound('C:\sound.wav',0,SND_ASYN C);

А, вот ещё..Функция проигрывает только WAV-файлы.

[vitalik007]

используй bass.dll которую скачать можно с un4seen.com.
там надо написать 4 строчки для воспроизведения.если надо пример напишу

[Лубышев]

Ну, а если пользуешься Windows.Beep то как сделать так, чтоб звук звучал пока нажата кнопка, а как только отпустишь, отключался?

[vitalik007]

можно при нажатии на кнопку запускать таймер с интервалом 1 и он будет бибикать а при OnmouseUp останавливать бибипилку.

[DOLBY]

используй bass.dll которую скачать можно с un4seen.com.

зачем качать какие то библиотеки, если есть функция PlaySound, которую я только что описал???
или я что то не так понял?

[vitalik007]

так а если мп3

[Михаил Юрьевич]

PlaySound('C:\sound.wav',0,SND_ASYN C); А если я откомпилирую и сожму
Upx или AsPack то все будет нормально,и если я не знаю куда распакуют
папку с файлами то что указать в пути к файлу? И хотел спросить как нажав на
Button выключить звук с клавиатуры,то есть нажал включил,нажал выключил

[Карась]

А если я откомпилирую и сожму
Upx или AsPack то все будет нормально

Это АПИ функция, что может с ней произойти?

..и если я не знаю куда распакуют
папку с файлами то что указать в пути к файлу?

Указать правду и ничево кроме правды.... Странный вопрос, как это ты незнаешь куда распаковали? Можно узнать

И хотел спросить как нажав на
Button выключить звук с клавиатуры,то есть нажал включил,нажал выключил

Какой именно звук?


А что вообще хотите написать?

[Михаил Юрьевич]

Не правильно выразился не звук выключить ,а функцию PlaySound('C:\sound.wav',0,SND_ASYN C); выключать и включать,
написал эту функцию в TForm1.RichEdit1KeyPress