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
var s:string; begin s:='0x'+ inttostr(trackbar1.Position)+ inttostr(trackbar1.Position); MMSystem.waveOutSetVolume(0, StrToInt(s));
trackbar1.Max:=96; trackbar1.Min:=6; trackbar1.Position:=50;
Última edição por FusioN; 17-08-2010 às 11:18 PM.
Hidden Content
Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)
Regras do Fórum