Шумомер с индикацией

[teresiya]

Слабослышащие люди в разговоре по телефону не контролируют громкость своего голоса. Возникла идея написания программы "Шумомер+индикатор", т.е. посредством регистрации громкости звука на динамически изменяемом уровне шума, поймать достижение порогового значения и "включить" тихую китайскую музыку. Можно и "атистрессом" назвать.
Вопрос - возможно ли разработать такую программу посредством Delphi или С++?

[raxp]

...разработать можно, но рационально-ли ПК тулить для этого? Это делается на железной логике на раз-два, и автономнее будет и надежнее.

Если уж так сильно хочется, вот отслеживание уровня звука (на WinAPI в терминах Delphi):

 if (uMsg=WIM_DATA) then begin
  temp:= adr1;
  if adr1= @wh1 then adr1:= @wh2 else adr1:= @wh1;
  //
  if stp1 then waveInAddBuffer(hwi,adr1,sizeof(TWaveHdr));
  recorded:= adr1.dwBytesRecorded;
  //

  max:=0;
  p:= PByte(temp.lpData);
  for i:=0 to temp.dwBytesRecorded - 1 do begin
   if Abs(p^-128) > max then max := Abs(p^-128);
   Inc(p);
  end;
  GLVAL:= Round(max*100/128);