Недавно добавленные исходники

•  Animation Loaders  694

•  DeLiKaTeS Tetris (Тетрис)  5 696

•  TDictionary Custom Sort  7 653

•  Fast Watermark Sources  7 345

•  3D Designer  10 554

•  Sik Screen Capture  7 871

•  Patch Maker  8 094

•  Айболит (remote control)  8 153

•  ListBox Drag & Drop  6 948

•  Доска для игры Реверси  100 154

•  Графические эффекты  8 215

•  Рисование по маске  7 610

•  Перетаскивание изображений  6 211

•  Canvas Drawing  6 581

•  Рисование Луны  6 502

•  Поворот изображения  5 680

•  Рисование стержней  4 603

•  Paint on Shape  3 299

•  Генератор кроссвордов  4 288

•  Головоломка Paletto  3 429

•  Теорема Монжа об окружностях  4 252

•  Пазл Numbrix  2 755

•  Заборы и коммивояжеры  3 659

•  Игра HIP  2 467

•  Игра Go (Го)  2 450

•  Симулятор лифта  2 861

•  Программа укладки плитки  2 297

•  Генератор лабиринта  3 021

•  Проверка числового ввода  2 519

•  HEX View  2 927

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Изменить громкость 4



Оформил: DeeCo

 uses
   MMSystem;

 procedure SetVolume(const volL, volR: Word);
 var
   hWO: HWAVEOUT;
   waveF: TWAVEFORMATEX;
   vol: DWORD;
 begin
   // init TWAVEFORMATEX 
  FillChar(waveF, SizeOf(waveF), 0);
   // open WaveMapper = std output of playsound 
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
   vol := volL + volR shl 16;
   // set volume 
  waveOutSetVolume(hWO, vol);
   waveOutClose(hWO);
 end;

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









Copyright © 2004-2026 "Delphi Sources" by «SiteAnalyzer». Delphi World FAQ

Группа ВКонтакте