Hallo,
hier ist noch ein Link: (ganz nach unten scrollen)
GetVolume()
Davon brauchst du die Funktionen
GetMixerControlID() und
GetVolume().
Ein Beispiel für LineIn:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
caption:= inttostr(GetVolume(GetMixerControlID(MIXERLINE_COMPONENTTYPE_SRC_LINE)));//LineIn
//Min= 0
//Max= 65535
end;
Getestet unter WinXP.