[Gudzik11]

Подскажите как изменять общую громкость в Windows к примеру с помощью TrackBara ?

[angvelem]

Один из вариантов:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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;

мне хватило пары минут, чтобы найти это в поиске. Что мешало Вам?

[Gudzik11]

Я только учусь!Всё,что читал в инэте,не работало,или я не правильно что-то делал.
Вот в коде тоже не пойму откуда брать

procedure SetVolume(X: Word);?

[angvelem]

Это готовая процедура, вызываете её с величиной от 0 до 100

Код:

1 2 3 4

SetVolume(10); SetVolume(20); SetVolume(30); SetVolume(40);

числа, это какую громкость хотим выставить.

[Gudzik11]

пишет
No audio devices are available

Код:

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin   SetVolume(1); end;

не так должно быть?

[angvelem]

Вот доработанный напильником код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure SetVolume(X : Word); type   TVolumeType = record     case Integer of       0: (LongVolume: Longint);       1: (LeftVolume, RightVolume : Word);     end; var   iErr          : Integer;   I, J          : Integer;   WaveOutCaps   : TWaveOutCaps;   Vol           : TVolumeType; begin   J := 0;   for I := 0 to waveOutGetNumDevs - 1 do   begin     waveOutGetDevCaps(I, @WaveOutCaps, SizeOf(WaveOutCaps));     if (WaveOutCaps.dwSupport and WAVECAPS_VOLUME) <> 0 then     begin       Vol.LeftVolume := X shl 8;       Vol.RightVolume := Vol.LeftVolume;       J := I;       Break;     end;   end;     iErr := waveOutSetVolume(J, Vol.LongVolume);   if (iErr <> 0) then     ShowMessage('No audio devices are available!'); end;

диапазон громкости от 0 до 255. Изменяет громкомть Wave канала. Предыдущий код был рассчитан на CDaudio.

[Gudzik11]

Не выходит чего-то ничего!Может я не правильно объяснил что мне нужно?
На моей форме есть компонент TrackBar и мне надо,чтоб я с помощью него регулировал звук,то есть,если я убавляю звук,то и в Windows"ком регуляторе громкости он тоже убавляться,а если я через Windows регулятор убавляю то и в TrackBar тоже убавлялся.

[angvelem]

Не работает? Срочно купить учебник по Дельфи и учить, учить, учить.