Delphi dicas

Alterar volume

Uses MMSystem



procedure TForm1.TrackBar1Change(Sender: TObject);

var

s:string;

begin

        s:='0x'+ inttostr(trackbar1.Position)+ inttostr(trackbar1.Position);

        MMSystem.waveOutSetVolume(0, StrToInt(s));



end;



procedure TForm1.FormCreate(Sender: TObject);

begin

        trackbar1.Max:=96;

        trackbar1.Min:=6;

        trackbar1.Position:=50;

end;



end.

por : Juan Pablo