如何检查麦克风是否已插入/拔出

Question

如何使用Delphi检查麦克风是否已插入/拔出？

Answer 1

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

（使用MMSystem）