本文整理自网络,侵删。
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.
相关阅读 >>
Delphi 使用 {$include} 或 {$i} 指令管理和调用自定义函数
更多相关阅读请进入《Delphi》频道 >>