耳麦音量调节demo（Delphi版本）

耳麦设置的代码真的很难找，这是我从一个C++的帖子里翻译成delphi的代码。 注意：这个dephi代码调试模式下不起作用，要编译后运行才能看到效果。这个搞了我好久，以为代码有问题呢。至于原因不清楚，希望大牛指点一下！