Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира




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

Компилятор: Delphi

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;


 


Основные разделы сайта


 

Реклама