[Usama]

Помогите выключить звук в Vista, использовал код из FAQ, но он почемуто не выключает звук.Как ещё можно выключить звук?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

uses   MMSystem;   function GetMasterMute(   Mixer: hMixerObj;   var Control: TMixerControl): MMResult; // Returns True on success var   Line: TMixerLine;   Controls: TMixerLineControls; begin   ZeroMemory(@Line, SizeOf(Line));   Line.cbStruct := SizeOf(Line);   Line.dwComponentType := MIXERLINE_COMPONENTTYPE_DST_SPEAKERS;   Result := mixerGetLineInfo(Mixer, @Line,     MIXER_GETLINEINFOF_COMPONENTTYPE);   if Result = MMSYSERR_NOERROR then   begin     ZeroMemory(@Controls, SizeOf(Controls));     Controls.cbStruct := SizeOf(Controls);     Controls.dwLineID := Line.dwLineID;     Controls.cControls := 1;     Controls.dwControlType := MIXERCONTROL_CONTROLTYPE_MUTE;     Controls.cbmxctrl := SizeOf(Control);     Controls.pamxctrl := @Control;     Result := mixerGetLineControls(Mixer, @Controls,       MIXER_GETLINECONTROLSF_ONEBYTYPE);   end; end;   procedure SetMasterMuteValue(   Mixer: hMixerObj;   Value: Boolean); var   MasterMute: TMixerControl;   Details: TMixerControlDetails;   BoolDetails: TMixerControlDetailsBoolean;   Code: MMResult; begin   Code := GetMasterMute(0, MasterMute);   if Code = MMSYSERR_NOERROR then   begin     with Details do     begin       cbStruct := SizeOf(Details);       dwControlID := MasterMute.dwControlID;       cChannels := 1;       cMultipleItems := 0;       cbDetails := SizeOf(BoolDetails);       paDetails := @BoolDetails;     end;     LongBool(BoolDetails.fValue) := Value;     Code := mixerSetControlDetails(0, @Details,       MIXER_SETCONTROLDETAILSF_VALUE);   end;   if Code <> MMSYSERR_NOERROR then     raise Exception.CreateFmt('SetMasterMuteValue failure, ' +       'multimedia system error #%d', [Cоde]); end;   // Example:   procedure TForm1.Button1Click(Sender: TObject); begin   SetMasterMuteValue(0, CheckBox1.Checked); // Mixer device #0 mute on/off end;

Admin: Пользуемся тегами, иначе санкции!

[Usama]

Что ни кто не подскажет?