uses MMSystem;
var
Value: Cardinal = 0; MixerControl: TMixerControl;
MixerLineControls: TMixerLineControls = (cbStruct: SizeOf(MixerLineControls); cControls: 1; cbmxctrl: SizeOf(MixerControl); pamxctrl: @MixerControl);
MixerControlDetails: TMixerControlDetails = (cbStruct: SizeOf(MixerControlDetails); cChannels: 1; cbDetails: SizeOf(Value); paDetails: @Value);
procedure TForm1.Button1Click(Sender: TObject); var hMixer: Integer;
begin
if mixerOpen(@hMixer, 0, 0, 0, MIXER_OBJECTF_MIXER) = 0 then
begin
repeat Inc(MixerLineControls.dwControlID);
mixerGetLineControls(hMixer, @MixerLineControls, MIXER_GETLINECONTROLSF_ONEBYID);
until MixerControl.dwControlType = MIXERCONTROL_CONTROLTYPE_MUTE;
MixerControlDetails.dwControlID := MixerControl.dwControlID;
mixerSetControlDetails(hMixer, @MixerControlDetails, MIXER_SETCONTROLDETAILSF_VALUE);
mixerClose(hMixer);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
keybd_event($AD, 0, 0, 0); end;