[Medio]Alterar Volume

Na seção Uses adicione: MMSystem

Adicione um TrackBar

No evento onchange do TrackBar coloque:

Código:

---

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

---

No evento OnCreate do Form coloque:

Código:

---

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

---

Créditos : Victor_xp

Fonte : Pro Code