Unit volume |
TMixerVolume version 1.1 copyright © by Alexander Meeder, 1996 This component is an interface for the Windows API: * auxGetNumDevs * auxGetDevCaps * auxGetVolume * auxSetVolume I first subclassed TScrollBar but later I made it an invisible component so you can use it with 'ScrollBar', 'TrackBar' etc. as you like There might be one problem, I don't know if the type TDeviceTypes is correct for every machine/ situation, and if not, what do I have to do to determine which DeviceID stands for which device? properties * Channel (both, left or right) * DeviceType (CDAudio, Midi, Wave etc.) * DriverVersion (versionnumber of the installed Mixerdriver) * Manufacturer (Microsoft or # = Unknown) * Mute (volume 0, can't change volume) * NumOfDevices (readonly property to readout available number of devices) * ProductName (Productname/Device info.) * SupportChannels (can choose left/right if true) * SupportChannels (can change volume if true) * Volume (0 .. 255 = min .. max volume) method * Update (update property value's, especialy the volume) You can use it for free, if you make changes or have suggestions, please mail me: ameeder@dds.nl
Classes |
Functions |
Register -
Types |
TChannel
TDeviceTypes
TMinMaxVolume
Constants |
Variables |
Functions |
Types |
TChannel = (chLeft, chRight, chBoth);
TDeviceTypes = (dtWave, dtMidi, dtCDAudio, dtLineIn, dtMicrophone, dTMixerVolume, dtPCSpeaker);
TMinMaxVolume = 0 .. 255
Constants |
Variables |