Lautstärkeregler für LineIn

[bitsetter]

Moin,

also ich habe jetzt einen Link gefunden und zwar der hier:
LineIn

Bei mir hat der Code unter WinXP jedenfalls funktioniert. Der Aufruf der Funktion lautet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MixerCtrlID: DWord;
begin
  MixerCtrlID := GetMixerControlID(MIXERLINE_COMPONENTTYPE_SRC_LINE);
  
  //Beispiele
  SetVolume(MixerCtrlID, 65535);//Maximal
  SetVolume(MixerCtrlID, 32768);//50 %
  SetVolume(MixerCtrlID, 0);//Minimal
  
end;

Ich hoffe mal, dass das auch bei dir hilft.

EDIT:

Zitat von Aike:

Klasse, für den LineIn funktioniert das einwandfrei Allerdings hab ich den Code eingefügt, compiliert, Knopf gedrückt und wäre fast vom Stuhl gefallen, weil 100% *dermaßen* laut war

Damit keiner vom Stuhl fällt, habe ich jetzt minimal zum Schluss gesetzt.