Fórum Fade em arquivo mp3... #195937

Olá pessoal...

Consegui solucionar meu problema...
Segue abaixo o código que utilizei....
Pode ser útil para alguém...

Valeu!

procedure SetVolume(const volL, volR: Word);
var
hWO: HWAVEOUT;
waveF: TWAVEFORMATEX;
vol: DWORD;
begin
FillChar(waveF, SizeOf(waveF), 0);
waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
vol := volL + volR shl 16;
waveOutSetVolume(hWO, vol);
waveOutClose(hWO);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
H :integer;
begin
H := 65500; [color=blue:dec48b03c0]//Volume Máximo[/color:dec48b03c0]
while not(H <= 1)do
begin
SetVolume(H,H);
H := (H - 30)
end;
SetVolume(65500,65500); [color=blue:dec48b03c0]//Retorna ao volume máximo[/color:dec48b03c0]
end;