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

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;
 
faq/delphi/system/change_volume.txt · Последние изменения: 2006/05/14 14:39 (внешнее изменение)
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki