Order and save right now!
20% off with the dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!
Use SNDVOL32.EXE program, which is contained in windows directory. Use ShellExecute for running this program.
Don't forget to add ShellAPI in uses chapter.
uses ShellAPI; ... procedure TForm1.Button1Click(Sender: TObject); var MyWin: array[0..255] of Char; const Size: Integer = MAX_PATH; begin GetWindowsDirectory(MyWin, Size); ShellExecute( Form1.Handle, 'open', 'sndvol32.exe', nil, MyWin, SW_SHOWNORMAL); end;
More for developers