zoukankan      html  css  js  c++  java
  • 调整Mic音量

    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;

  • 相关阅读:
    锐捷 ac ap 连接 记录
    锐捷 Fat/Fit Ap切换
    qualcomm lk gpio
    git patch 使用
    qualcomm batch 烧录脚本
    Cisco无线控制器配置Radius
    hostapd作为radius服务器
    Android N: jack server failed
    win10: This file can't be opened
    2. 特征工程之特征选择
  • 原文地址:https://www.cnblogs.com/yzryc/p/6374884.html
Copyright © 2011-2022 走看看