Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Определить текущее значение громкости звука

Автор: Леша 19.2.2005, 02:29

сабж.

Автор: dm9 19.2.2005, 12:14

http://vingrad.ru/DELPHI-DLP-001514

Автор: Леша 19.2.2005, 21:01

Блин! Я извиняюсь!!!

ИМЕННО: узнать, а не изменить!!!

Просьба к модератору переименовать тему! ОписАлся!
Добавлено @ 21:02
dm9, именно поэтому Ваш (твой) ответ не устраивает! Спасибо за попытку помоч!

Автор: dm9 19.2.2005, 21:11

а. Всё-таки "твой". Меня не так много, как кажется...

б. Сделай поиск по странице (ссылку на которую я дал). Поиск по фразе "function GetVolume: Word;". И подумай, что же эта ф-ция делает smile

Автор: Леша 20.2.2005, 00:44

Я это уже пробывал!

Код


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;

Но у меня выдает 'No audio devices are available!'

Вот так вот...

А что касается вот этого (оттуда же - из DKRB):

Код


procedure TForm1.FormCreate(Sender: TObject); 
var 
  i: integer; 
  cap: TAuxCaps; 
begin 
  for i := 0 to auxGetNumDevs - 1 do 
  begin 
    auxGetDevCaps(i, Addr(cap), SizeOf(cap)); 
    ListBox1.Items.Add(cap.szPname) 
  end; 
end;

Соответственно у меня не заполняет ЛистБокс... Причина этой всей лабуды: auxGetNumDevs равно 0.

Таким образом: ВОПРОС В СИЛЕ!