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, ), KEYEVENTF_EXTENDEDKEY, );

  keybd_event(VK_VOLUME_MUTE, MapVirtualKey(VK_VOLUME_MUTE, ), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, );

end;

class procedure SimpleSoundControl.VolumeDown;

begin

  keybd_event(VK_VOLUME_DOWN, MapVirtualKey(VK_VOLUME_DOWN, ), KEYEVENTF_EXTENDEDKEY, );

  keybd_event(VK_VOLUME_DOWN, MapVirtualKey(VK_VOLUME_DOWN, ), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, );

end;

class procedure SimpleSoundControl.VolumeUp;

begin

  keybd_event(VK_VOLUME_UP, MapVirtualKey(VK_VOLUME_UP, ), KEYEVENTF_EXTENDEDKEY, );

  keybd_event(VK_VOLUME_UP, MapVirtualKey(VK_VOLUME_UP, ), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, );

end;

end.