DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: Bizrusthelf
今日帖子: 7
在线用户: 31
导航: 论坛 -> 发布代码 斑竹:liumazi,ruralboy  
作者:
男 beginlove (beginlove) ▲▲▲▲▲ -
普通会员
2010/4/11 18:00:57
标题:
VISTA/WIN7 声音控制的API翻译,希望有人写出使用的例子 浏览:2321
加入我的收藏
楼主: VISTA/WIN7 声音控制的API翻译,希望有人写出使用的例子
此帖子包含附件:beginlove_201041118057.zip 大小:4.3K
----------------------------------------------
-
作者:
男 learu (learu) ★☆☆☆☆ -
盒子活跃会员
2010/4/12 9:11:55
1楼: 去ms网站下个Windows SDK 7.0  自己慢慢看就好了 7.0里有Win7新增的API说明与例子 
当然 这些都是C++的 你需要自己做转换
----------------------------------------------
-
作者:
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
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 吃饭,怕甚?
作者:
男 keymark (keymark) ▲△△△△ -
注册会员
2018/5/15 19:58:57
3楼: 自己看着玩吧  反正win7没问题  10..我没有 谁试试?
(控制自己程序音量,全体音量)包括选择输出驱动
挖!!!之前看到个不给源码的气不过 自己找了这个
此帖子包含附件:keymark_2018515195857.zip 大小:626.4K
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 hq200306 (200306) ▲▲▲▲▲ -
普通会员
2018/5/15 20:05:09
4楼: mark
----------------------------------------------
-
作者:
男 hsj (hsj) ★☆☆☆☆ -
盒子活跃会员
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
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行46.875毫秒 RSS