| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> 发布代码 斑竹:liumazi,ruralboy | |||||
| 作者： |
|
2010/4/11 18:00:57 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | VISTA/WIN7 声音控制的API翻译，希望有人写出使用的例子
- |
|||||
| 作者： |
|
2010/4/12 9:11:55 | ||||
| 1楼： | 去ms网站下个Windows SDK 7.0 自己慢慢看就好了 7.0里有Win7新增的API说明与例子 当然 这些都是C++的 你需要自己做转换 ---------------------------------------------- - |
|||||
| 作者： |
|
2010/4/12 10:29:29 | ||||
| 2楼： | ////////// simple sample :) ////////// //...... other code uses ... ActiveX, MMDevApi, ...; //...... other code var endpointVolume: IAudioEndpointVolume = nil; procedure TForm1.FormCreate(Sender: TObject); var deviceEnumerator: IMMDeviceEnumerator; defaultDevice: IMMDevice; begin CoCreateInstance(CLASS_IMMDeviceEnumerator, nil, CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator, deviceEnumerator); deviceEnumerator.GetDefaultAudioEndpoint(eRender, eConsole, defaultDevice); defaultDevice.Activate(IID_IAudioEndpointVolume, CLSCTX_INPROC_SERVER, nil, endpointVolume); end; procedure TForm1.Button1Click(Sender: TObject); var VolumeLevel: Single; begin if endpointVolume = nil then Exit; VolumeLevel := 0.50; endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil); Caption := Format('%1.8f', [VolumeLevel]) end; ////////// //【color=red】 with best regards ToxicDream[/color] ---------------------------------------------- delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？ |
|||||
| 作者： |
|
2018/5/15 19:58:57 | ||||
| 3楼： | 自己看着玩吧 反正win7没问题 10..我没有 谁试试? (控制自己程序音量,全体音量)包括选择输出驱动 挖!!!之前看到个不给源码的气不过 自己找了这个
[alias] co = clone --recurse-submodules up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速  https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
|
|||||
| 作者： |
|
2018/5/15 20:05:09 | ||||
| 4楼： | mark ---------------------------------------------- - |
|||||
| 作者： |
|
2018/5/16 15:54:17 | ||||
| 5楼： | 实现对扬声器(右下角喇叭图标)的全面控制，扬声器、麦克风、立体声混音、麦克风加强、默认录音设备、静 音、音量等都可以获取、控制，支持xp,vista,win7,win8,win10等系统。 测试时，打开扬声器相应界面，即可看到控制效果。jyVolumeControl.DLL可以应用于各种流行的开发语言，比如Delphi, C++Builder, C#, Visual C++, Visual Basic, Visual Basic.NET, PowerBuilder等，示例为delphi7调用代码；jyVolumeControl.ocx适用于所有ie内核的浏览器，也可以用于Delphi, C++Builder, C#, Visual C++, Visual Basic, Visual Basic.NET, PowerBuilder等应用程序。下载地址:http://www.dxmylove.com/download/VolumeControl.zip ---------------------------------------------- qq:171833017,靖源软件http://www.dxmylove.com |
|||||
| 信息 |
| 登陆以后才能回复 |
