procedure MicMute(Value : Boolean);
Var ta : TAudioMixer;
i, j : Integer;
finded : Boolean;
begin
try
ta := TAudioMixer.Create(nil);
ta.MixerId := 0;
finded := false;
for i := 0 to ta.Destinations.Count - 1 do
Begin
if UpperCase(Copy(ta.Destinations.Destination[i].Data.szName, 1, 6)) = 'VOLUME' then
for j := 0 to ta.Destinations.Destination[i].Connections.Count - 1 do
if ta.Destinations.Destination[i].Connections.Connection[j].Data.dwComponentType = 4099 then
Begin
finded := true;
Break;
end;
if finded then Break;
end;
if finded then
ta.SetMute(i, j, Value) else
ShowMessage('Ìèêðîôîí íå íéäåí');
finally
ta.Free;
end;
end;