Как проверить, подключен ли микрофон или нет

Question

Как проверить, подключен / отключен ли микрофон с помощью Delphi?

Answer 1

function WaveInDevicePresent: boolean;
begin
  result := waveInGetNumDevs > 0;
end;

(использует MMSystem)