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

•  TDictionary Custom Sort  3 227

•  Fast Watermark Sources  2 992

•  3D Designer  4 751

•  Sik Screen Capture  3 259

•  Patch Maker  3 469

•  Айболит (remote control)  3 529

•  ListBox Drag & Drop  2 904

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

•  Графические эффекты  3 843

•  Рисование по маске  3 172

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

•  Canvas Drawing  2 674

•  Рисование Луны  2 501

•  Поворот изображения  2 094

•  Рисование стержней  2 121

•  Paint on Shape  1 525

•  Генератор кроссвордов  2 183

•  Головоломка Paletto  1 731

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

•  Пазл Numbrix  1 649

•  Заборы и коммивояжеры  2 017

•  Игра HIP  1 262

•  Игра Go (Го)  1 201

•  Симулятор лифта  1 425

•  Программа укладки плитки  1 178

•  Генератор лабиринта  1 512

•  Проверка числового ввода  1 297

•  HEX View  1 466

•  Физический маятник  1 322

•  Задача коммивояжера  1 357

 
скрыть


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

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



Delphi Sources

Установка звука для аудио устройств



Оформил: DeeCo

{ 
  The following example demonstrates getting and setting the volume 
  for the first CDAudio and LineIn device found. Note that both left and 
  right 
  channels are supported. The volume range is from 0 to 65535. 

  Example: 
}

 uses
   MMSystem;

 function GetLineInHandle(AudioType: Integer): Integer;
 var
   i: Integer;
   AudioCaps: TAuxCaps;
 begin
   Result := 0;
   for i := 0 to auxGetNumDevs - 1 do
    begin
     auxGetDevCaps(i, @AudioCaps, SizeOf(AudioCaps));
     if AudioCaps.wTechnology = AudioType then
      begin
       Result := i;
       Break;
     end;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   v: DWORD;
 begin
   AuxGetVolume(GetLineInHandle(AUXCAPS_CDAUDIO), @v);
   Edit1.Text := IntToStr(LoWord(v));
   Edit2.Text := IntToStr(HiWord(v));
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 var
   v: DWORD;
 begin
   v := MakeLong(Word(StrToInt(Edit1.Text)),
     Word(StrToInt(Edit2.Text)));
   AuxSetVolume(GetLineInHandle(AUXCAPS_CDAUDIO), v);
 end;

 procedure TForm1.Button3Click(Sender: TObject);
 var
   v: DWORD;
 begin
   AuxGetVolume(GetLineInHandle(AUXCAPS_AUXIN), @v);
   Edit3.Text := IntToStr(LoWord(v));
   Edit4.Text := IntToStr(HiWord(v));
 end;

 procedure TForm1.Button4Click(Sender: TObject);
 var
   v: DWORD;
 begin
   v := MakeLong(Word(StrToInt(Edit3.Text)),
     Word(StrToInt(Edit4.Text)));
   AuxSetVolume(GetLineInHandle(AUXCAPS_AUXIN), v);
 end;




Похожие по теме исходники

Рисование кривой звука

Нейросеть для распознавания образов

Механизм станка качалки для нефти

Весы для взвешивания

 

Кувшины для воды

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

Аудио Деформатор

Список установленных устройств

 



Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

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