Controlling computer's sound volume using slider control in Delphi

Does anyone know how to write the source code to use a slider control in Delphi to adjust the computer's sound volume? And to use a progress bar control as an indicator of the sound volume.
cjong75Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

yingkitCommented:
Listening...
0
intheCommented:
hi,
see thius project:
http://www.bhnet.com.br/~simonet/archive/mmvol.zip

Details:
How To Detect Multimedia Devices and Set their Volume
The purpose of the How-To Project is to teach Delphi developers how it is possible to detect the number and names of auxiliary multimedia devices and, optionally, set their volume using a track bar (or any other similar) component. Full source (and documented) code is included and is very easy to understand.  

Regards Barry
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
intheCommented:
hello ..did you try it ?
0
yingkitCommented:
Simonet's mmvol.zip seems to be unable to detect the volume for each device, it can only set the volume.
0
cjong75Author Commented:
Sorry for the late reply because very busy lately with my studies. Yes, the program works very well and thank you very much.

Regards,
Brandon
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.