Hier ist ein kleiner einfacher Beispiel(Regelung der OutSetVolume mit einer TrackBar)
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TtrackBar1.Position :=65535; <== Du musst die TrackBar.Max auf 65535 einstellen
procedure TForm1.Time2Timer(Sender: TObject);
var
newvolume:word;
begin
//------------------------set volume------------------------------
newvolume:= TtrackBar1.Position ;
WaveOutSetVolume(wave_mapper, NewVolume or (NewVolume shl 16));
[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]
[edit=Daniel B]BBCode eingeschaltet. Mfg, Daniel B[/edit]