Tips (1541)

Tip Bewertung (10):

{
  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;