Студия web-дизайна Хостмэйк
Наши работыКонтактыО компанииОтзывыГлоссарийСтатьи

Изменение громкости звуков в Windows средствами Delphi

Статьи Программирование на Delphi

uses MMSystem;


function GetWaveVolume: DWord;

var Woc : TWaveOutCaps;

Volume : DWord;

begin

result:=0;

if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =

MMSYSERR_NOERROR then begin

if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin

WaveOutGetVolume(WAVE_MAPPER, @Volume);

Result := Volume;

end;

end; 

end;


procedure SetWaveVolume(const AVolume: DWord);

var Woc : TWaveOutCaps;

begin

if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =

MMSYSERR_NOERROR then begin

if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then

WaveOutSetVolume(WAVE_MAPPER, AVolume);

end;

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

Beep;

end;


procedure TForm1.Button2Click(Sender: TObject);

var LeftVolume: Word;

RightVolume: Word;

begin

LeftVolume := StrToInt(Edit1.Text);

RightVolume := StrToInt(Edit2.Text);

SetWaveVolume(MakeLong(LeftVolume, RightVolume));

end;


procedure TForm1.Button3Click(Sender: TObject);

begin

Caption := IntToStr(GetWaveVolume);

end;

16.02.2006

Телефон

+7 8636 237-836

Поиск

VSESMI.ru — новости в СМИ.
Один из больших по объему информации проектов, работающих под управлением HostCMS.

Tur-Hotel.ru — отзывы об отелях
На сайте представлено описание отелей, рейтинг отелей с отзывами туристов.