How to Check if the Mic is Plugged/Unplugged

How to check if the microphone is plugged/unplugged usin开发者_运维知识库g Delphi?

---

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

(uses MMSystem)