Hallo Ihr ,

Ich versuche schon eine Weile das Microfon gemutet zu bekommen. Mit Hilfe Delphi.

Ich habe naemich ein Programm das wenn man auf Mute Microfon klickt das MIC gemutet werden soll. LEIDER FINKTIONERT DAS NICHT SO.

Mein Ziel war es unter den einstellungen von Windows "Volume Control" --> Opions --> Properties --> Recoring // Ein haeckechen in aux oder irgendeinem anderen Feld hineinzubekommen. Dann ist das MIC naemlich aus.

Leider haben folgende Sachen nicht funktionert :

mciSendString
Fast alles was man damit machen kann habe ich probiert funktioniert aber nichts davon.
Vielleicht weil es nur VCR und digital video unterstuetzt.

- mciSendString('Set setaudio off', Nil, 0, 0);

hbTapi Components

- http://www.swissdelphicenter.ch/de/showcode.php?id=2296 \
moechte ich auch nicht benutzten weil es auch kuerzer geht. Denke ich einmal.

Was gibt es noch ? Wie kann ich dieses eigentlich einfach zu scheinende Problem loesen ?

Bitte um Hilfe!!! dringend

Vielen Dank

Zitat von rocoun:

- http://www.swissdelphicenter.ch/de/showcode.php?id=2296 \
moechte ich auch nicht benutzten weil es auch kuerzer geht. Denke ich einmal.

Na ja, manchmal liegt halt die Wuerze nicht in der Kuerze.

Also es gibt ja wohl Code der um einiges länger ist als das hier:

zusammenfalten · markieren

Delphi-Quellcode:

function SetMicrophoneVolume(bValue: Word): Boolean;
var
  hMix: HMIXER;
  mxlc: MIXERLINECONTROLS;
  mxcd: TMIXERCONTROLDETAILS;
  vol: TMIXERCONTROLDETAILS_UNSIGNED;
  mxc: MIXERCONTROL;
  mxl: TMixerLine;
  intRet: Integer;
  nMixerDevs: Integer;
begin
  nMixerDevs := mixerGetNumDevs();
  if (nMixerDevs < 1) then
  begin
    Exit;
  end;
  intRet := mixerOpen(@hMix, 0, 0, 0, 0);
  if intRet = MMSYSERR_NOERROR then
  begin
    mxl.dwComponentType := MIXERLINE_COMPONENTTYPE_SRC_MICROPHONE;
    mxl.cbStruct := SizeOf(mxl);
    mxl.dwDestination := 1;
    intRet := mixerGetLineInfo(hMix, @mxl, MIXER_GETLINEINFOF_COMPONENTTYPE);
  end;
end;

ansonsten versuche es mal mit

windows.microoff;

...
...
...

Das war natürlich nur Spaß