Na seção Uses adicione: MMSystem
Adicione um TrackBar
No evento onchange do TrackBar coloque:
No evento OnCreate do Form coloque:Código:var
s:string;
begin
s:='0x'+ inttostr(trackbar1.Position)+ inttostr(trackbar1.Position);
MMSystem.waveOutSetVolume(0, StrToInt(s));
Código:trackbar1.Max:=96;
trackbar1.Min:=6;
trackbar1.Position:=50;
Créditos : Victor_xp
Fonte : Pro Code