delphi实现控制声音音量

2016-02-19 17:47 61 1 收藏

今天天气好晴朗处处好风光，好天气好开始，图老师又来和大家分享啦。下面给大家推荐delphi实现控制声音音量，希望大家看完后也有个好心情，快快行动吧！

【 tulaoshi.com - 编程语言】

　　当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency属性值设置大一些，然后在Uses段加入MMSystem，并在TrackBar1和TrackBar2的OnChange事件都写上下列语句：

procedure TForm1.TrackBar1Change(Sender: TObject);var Wave:string;beginWave:=$+inttohex(TrackBar1.Position,4)+inttohex(TrackBar2.Position,4);waveoutsetvolume(0,strtoint(Wave));end;

来源:http://www.tulaoshi.com/n/20160219/1616051.html

上一篇： css:left,posLeft,pixelLeft
下一篇：不是不爱了只是心累了 - QQ伤感分组

看过《delphi实现控制声音音量》的人还看了以下文章更多>>

Delphi控制Excel2000

标签：编程语言网络编程

类别:COM & ActiveX (一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口: ExcelApp.Visible := True; 2) 更改 Excel 标题栏: ExcelApp.Caption := '应用程序调用 Microsoft Excel';...

音量控制的另类应用办法

标签： windows 操作系统

起音量控制，很多朋友都会想起系统托盘区那个小喇叭状的音量图标，左键单击它即可设置静音或调节音量大小，如果是笔记本电脑还可以使用键盘上的音量控制键进行控制。假如你不希望看到音量图标在此处出现，可以在控制面板中打开“声音和音频设备属性→音量”窗口，取消“将音量图标放入任务栏”复选框。但无论如何，与第三方软件相比，Windo...

浅谈Delphi如何控制Excel操作

标签： Delphi

1 创建Excel文件要在Delphi中控制Excel，就必须用到OLE自动化。现在一般采用OLE2来创建OLE对象，当激活一个OLE对象时，服务器程序仅在容器程序内部激活，这就是所谓的“就地激活”(in-place activation)。创建Excel文件时，先创建一个OLE对象，然后在对象中建立工作表worksheet，如函数createExcel所示： func...

Delphi控制并行端口位操作

标签： Delphi

一、并口读写在汇编语言中，可以用 in、out 指令操作并口，而在Delphi中并没有相对应的函数、方法可对并口进行读写，幸运的是Delphi可以嵌入汇编程序，通过直接嵌入汇编指令 in、out 可方便地对并口进行读写。我们还可以通过调用 Windows API 函数或第三方提供的DLL、VXD来访问并口，但通过使用嵌入汇编的方法对并口进行读写更...

Delphi控制Excel自动生成报表

标签： Delphi

关键字：Delphi，Excel，报表 1 引言数据报表作为企事业单位上报和下达的重要信息载体，随着信息化建设的不断推进，在实际的工作中得到了前所未有的应用。因此，数据报表已经成为管理信息系统中重要的一项功能，并且，由于数据的多样性和统计信息的增加，数据报表的系统实现变得越来越复杂。 Delphi是一个高效的可视化数...

查看更多精彩>>