Микрофон

[iiunbreakableii]

Здравствуйте!
Подскажите пожалуйста как считать и установить положение ползунка громкости микрофона?

[raxp]

гуглим... этого хватит?
http://www.delphisources.ru/pages/fa...ume_level.html

на форуме обсуждалось...

[iiunbreakableii]

спасибо, но этот алгоритм я уже скачивал. Я не разобрался там как считать текущее положение. хотел разыменовав параметр "mxcd.paDetails" записать текущее положение регулятора громкости в переменную типа integer, но компилятор выдал:

[DCC Error] Unit1.pas(166): E2010 Incompatible types: 'Integer' and 'procedure, untyped pointer or untyped parameter'

ну, здесь я понял, что так делать нельзя.
А как же всё-таки считать текущее положение громкости микрофона?

[raxp]

ну, здесь я понял, что так делать нельзя

...значит вот так вот бросили и ждете?

вот вам для начала как получить доступ к микшеру:

//инициализация -
procedure init(h:thandle);
var i,err:integer;
    caps:TMIXERCAPS;
    line:TMIXERLINE;
    MaxLinecnt:integer;
    //maxSrc:integer;
    curDest:integer;
    //curSrc,
    index:integer;
begin
 try
  //кол-во микшеров
  numdevs:=mixerGetNumDevs;
  if numdevs=0 then exit;
  //
  index:=0;//1-карта
  mixerOpen(@mixer,Index,h,0,CALLBACK_WINDOW);
  //узнаем способности выбранного микшера
  mixerGetDevCaps(mixer,@caps,sizeof(caps));
  //
  MaxLinecnt:=255;
  //вызов до тех пор, пока mixerGetLineInfo не вернет ошибку
  line.cbStruct:=sizeof(line);
  curDest:=-1;
  setlength(_tn,1);
  for i:=0 to maxlinecnt do
   begin
    inc(curDest);
    line.dwDestination:=curDest;
    err:=mixerGetLineInfo(mixer,@line,MIXER_GETLINEINFOF_DESTINATION or MIXER_OBJECTF_HMIXER);
    if err<>0 then break;
    _tn[length(_tn)-1]:=line.szname;
    setlength(_tn,length(_tn)+1);
   end;
  //наполнение движков - по направлению
  tn(0);
 except end
end;

а получить значение через - mixerGetControlDetails(mixer,@mxc,0 ), так что дальше дело техники