|
Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming! |
⤷ Show system volume control
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
