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

{ SimpleSoundControl }

class procedure SimpleSoundControl.Mute;
begin
  keybd_event(VK_VOLUME_MUTE, MapVirtualKey(VK_VOLUME_MUTE, 0), KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_VOLUME_MUTE, MapVirtualKey(VK_VOLUME_MUTE, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

class procedure SimpleSoundControl.VolumeDown;
begin
  keybd_event(VK_VOLUME_DOWN, MapVirtualKey(VK_VOLUME_DOWN, 0), KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_VOLUME_DOWN, MapVirtualKey(VK_VOLUME_DOWN, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

class procedure SimpleSoundControl.VolumeUp;
begin
  keybd_event(VK_VOLUME_UP, MapVirtualKey(VK_VOLUME_UP, 0), KEYEVENTF_EXTENDEDKEY, 0);
  keybd_event(VK_VOLUME_UP, MapVirtualKey(VK_VOLUME_UP, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

end.

来源：https://www.cnblogs.com/cb168/p/6367310.html
 

相关阅读 >>

Delphi 如何快速读写文件中的字符串

Delphi 的内存操作函数(6): 跨进程的内存分配

Delphi 系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式

Delphi流类 遍历读取流中的所有数据

Delphi 获取unigui 控件id 及获取html值

Delphi调用winapi: getsystemmetrics - 获取系统度量等数值信息

Delphi 关于使用access中带参数的查询的用法

Delphi利用getprocessmemoryinfo获取进程占用内存大小

Delphi edit呈横线效果

Delphi “invalid floating point operation.”错误的解决方法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 控制音量 静音的类