1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Procedure LowerVol(Percent: Integer);
Var
    i: Integer;
Begin
    If (Percent <= 100) And (Percent >= 1) Then
        For i := 1 To (Percent Div 2) + 1 Do
            SendMessage(WinAmpHandle, WM_Command, 40059, 0);
End;

Procedure RaiseVol(Percent: Integer);
Var
    i: Integer;
Begin
    If (Percent <= 100) And (Percent >= 1) Then
        For i := 1 To (Percent Div 2) + 1 Do
            SendMessage(WinAmpHandle, WM_Command, 40058, 0);
End;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

const  
  WINAMP_VOLUMEUP  : integer = 40058; // volume up
  WINAMP_VOLUMEDOWN: integer = 40059; // volume down

procedure WinampVolumeUp;
var hwndWinamp: THandle;
begin
  hwndWinamp:= FindWindow('Winamp v1.x',nil);
  if hwndWinamp<>0 then SendMessage(hwndWinamp,WM_COMMAND, WINAMP_VOLUMEUP, 0);
end;

procedure WinampVolumeDown;
var hwndWinamp: THandle;
begin
  hwndWinamp:= FindWindow('Winamp v1.x',nil);
  if hwndWinamp<>0 then SendMessage(hwndWinamp,WM_COMMAND, WINAMP_VOLUMEDOWN, 0);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

uses mmsystem;

// ...

procedure GetVolume(var volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  volL:= 0;
  volR:= 0;
  // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  // get volume
  waveOutGetVolume(hWO, @vol);
  volL:= vol and $FFFF;
  volR:= vol shr 16;
  waveOutClose(hWO);
end;


procedure SetVolume(const volL, volR: Word);
var
  hWO: HWAVEOUT;
  waveF: TWAVEFORMATEX;
  vol: DWORD;
begin
  // init TWAVEFORMATEX
  FillChar(waveF, SizeOf(waveF), 0);
  // open WaveMapper = std output of playsound
  waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);
  vol:= volL + volR shl 16;
  // set volume
  waveOutSetVolume(hWO, vol);
  waveOutClose(hWO);
end;