28.04.2008, 18:35
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
С нами:
10182506
Репутация:
1393
|
|
Сообщение от Metall
Еще вопрос. У меня на форме компонент TMemo и TEdit. Пользователь что-то вводит в TEdit и по нажатию Enter'а оно попадает в TMemo. Но при этом издается звук из колонок. Это немного раздражает. Как сделать, чтобы звук не издавался (вариант с отключением колонок не предлагайте :-)
Код:
uses
MMSystem;
function SetWaveVolume(const AVolume: DWORD): Boolean;
var
WaveOutCaps: TWAVEOUTCAPS;
begin
Result := False;
if WaveOutGetDevCaps(WAVE_MAPPER, @WaveOutCaps, SizeOf(WaveOutCaps)) = MMSYSERR_NOERROR then
if WaveOutCaps.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then
Result := WaveOutSetVolume(WAVE_MAPPER, AVolume) = MMSYSERR_NOERROR;
end;
При форм create может сделать SetWaveVolume(0); и при закрытии формы, SetWaveVolume(100);?
|
|
|