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.