delphi 控制音量 静音的类 unit ttSound; interface uses winapi.windows, winapi.Messages; type SimpleSoundControl = class class procedure Mute(); static; class procedure VolumeUp(); static; class procedure VolumeDown(); static; end; implementation { SimpleSound
近期有一个需求,就是控制系统的音量,我们都知道原理在mediaPlayer.framework框架下,有方法 <span style="font-size:18px;">// The current volume of playing music, in the range of 0.0 to 1.0. // This property is deprecated -- use MPVolumeView for volume control instead. @proper
unit UMute; interface uses MMSystem, Dialogs; Type TDeviceName = (Master, Microphone, WaveOut, Synth); function GetVolume(DN:TDeviceName) : Word ; procedure SetVolume(DN:TDeviceName; Value:Word); function GetVolumeMute(DN:TDeviceName) : Boolean;
DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属设备数量 auxGetVolume API 获取当前卷设置 auxOutMessage API 向输出设备发送消息 auxSetVolume API 设置附属设备卷 AbortDoc API 终止一项打印作业 AbortPath API 终止或取消DC中的一切路径 AbortPrinter API
Delphi Project Structure Folder Organization http://delphi.about.com/od/delphitips2008/qt/project_layout.htm I've been developing in Delphi for the past 10+ years (from Delphi 1). Every version brings some new features - new controls, new build optio