delphi实现控制声音音量

2016-02-19 17:47 52 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;

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

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

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

delphi编程控制壁纸

标签：编程语言网络编程

控制Windows的桌面壁纸是一些看图工具常有的功能，要实现该功能是非常容易的，以下的程序使壁纸换为我们想要的图片，如果THEPCHAR为空，那么就取消壁纸，变为Win默认色彩；但这种方法只是暂时的，在WINDOWS重新启动后还是恢复原来的位图，所以要永久保留还需要对WIN.INI文件进行改写操作，才能保存住我们改动的图片不被替换。但这种暂时性...

音量控制的另类应用办法

标签： windows 操作系统

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

用Delphi实现文件关联

标签： Delphi

文件关联为我们带来很多的方便。Delphi自带有注册表对象TRegistry，可以通过它取得或改变注册表相关键值的内容。 Function GetAssociatedExec(FileExt: String; var FileDescription, MIMEType: String): String; Var Reg: TRegistry; FileType: String; begin Result := ′′;{函数返回值是打开Fi...

浅谈Delphi如何控制Excel操作

标签： Delphi

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

用Delphi实现壁纸更换

标签：编程语言网络编程

在Windows95/98中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_UserControl PanelDesktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中,使用了一个Tform;两个Tspeedbutton(Speedbutton1用于接受用户的浏览命令,Speedbutton2用于接受用户的...

查看更多精彩>>