[Medio]Alterar Volume

[FusioN]

Na seção Uses adicione: MMSystem

Adicione um TrackBar

No evento onchange do TrackBar coloque:

var
s:string;
begin
s:='0x'+ inttostr(trackbar1.Position)+ inttostr(trackbar1.Position);
MMSystem.waveOutSetVolume(0, StrToInt(s));

No evento OnCreate do Form coloque:

trackbar1.Max:=96;
trackbar1.Min:=6;
trackbar1.Position:=50;

Créditos : Victor_xp

Fonte : Pro Code