音量调节助手(转)

源：音量调节助手

软件名称：音量调节助手    软件功能：通过键盘快捷键快速调节系统主音量     软件版本：V2014     软件作者：易几网络     操作系统：所有WINDOWS版本     开发工具：DELPHI XE     操作说明：                         软件运行后最小化到通知栏，完全通过键盘快捷键进行音量调节                         Ctrl+F9   减小音量                         Ctrl+F10 放大音量                         Ctrl+F11 切换静音                         右键弹出选项菜单     授权说明：永久免费，若觉得不错，可捐赠作者，支付宝18845116@QQ.COM     联系作者：邮箱18845116@QQ.COM     下载地址：http://pan.baidu.com/s/1pJpt4ld

调节音量代码

unit UnitVolumeWin7;

interface

uses messages, Windows, Forms;

/// <summary>
/// 增大音量
/// </summary>
procedure VolumeUp;
/// <summary>
/// 减小音量
/// </summary>
procedure VolumeDown;
/// <summary>
/// 切换静音
/// </summary>
procedure VolumeMute;

implementation

procedure VolumeUp;
begin
  SendMessage(Application.Handle, WM_APPCOMMAND, $30292, APPCOMMAND_VOLUME_UP * $10000);
end;

procedure VolumeDown;
begin
  SendMessage(Application.Handle, WM_APPCOMMAND, $30292, APPCOMMAND_VOLUME_DOWN * $10000);
end;

procedure VolumeMute;
begin
  SendMessage(Application.Handle, WM_APPCOMMAND, $200EB0, APPCOMMAND_VOLUME_MUTE * $10000);
end;

end.