Как изменить громкость?

Previous  Top  Next

    
 

 

 

Code:

procedure SetVolume(X: Word);

var

iErr : Integer;

i: integer;

a: TAuxCaps;

begin

for i := 0 to auxGetNumDevs do begin

   auxGetDevCaps(i,Addr(a),SizeOf(a));

   If a.wTechnology = AUXCAPS_CDAUDIO Then break;

end;

 

// Устанавливаем одинаковую громкость для левого и правого каналов.

// VOLUME := LEFT*$10000 + RIGHT*1

 

iErr:=auxSetVolume(i,(X*$10001));

if (iErr‹›0) then ShowMessage('No audio devices are available!');

end;

 

function GetVolume: Word;

var

iErr : Integer;

i: integer;

a: TAuxCaps;

vol: word;

begin

for i := 0 to auxGetNumDevs do begin

   auxGetDevCaps(i,Addr(a),SizeOf(a));

   If a.wTechnology = AUXCAPS_CDAUDIO Then break;

end;

iErr:=auxGetVolume(i,addr(vol));

GetVolume := vol;

if (iErr‹›0) then ShowMessage('No audio devices are available!');

end;

 

 

©Drkb::02251

Взято из http://forum.sources.ru