ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Подскажите пожалуйста как програмно (через Delphi) включить микрофон?
Например по умолчанию там стоит галочка Выкл.
Как её включить? Нигде пример реализации найти не могу.

Подскажите пожалуйста как програмно (через Delphi) включить микрофон?
Например по умолчанию там стоит галочка Выкл.
Как её включить? Нигде пример реализации найти не могу.

Вот, держи, модуль AMixer.pas

Создаёшь класс TAudioMixer, потом в свойстве Destinations переходишь на первый Destination(воспроизведение), там ищешь в массв-свойстве Connections микрофон(по типу) и потом как только соединение найдёшь вызываешь <созданы_миксер>.setMute(destionation , connection, true); destionation - обычно в 0(воспроизведение), connection - индекс нйденого микрофона.

http://slil.ru/28632240

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;