[Alegun]

Для управления громкостью можно воспользоваться интерфейсной апишной функцией mciSendCommand со следующими параметрами:

Код:

 procedure VolMP(ds: integer);
type
   PrmVol = record
   p1: DWORD;
   p2: DWORd;
   p3: DWORD;
   end;

var
 p: PrmVol;

begin

 with p do
 begin
 p1:= 0;
 p2:= MCI_SEQ_FILE;
 p3:= ds;
 end;

 mciSendCommand(DeviceID, 2163, $01000000 or $00800000, Cardinal(@p));

end;

Здесь нужно только знать DeviceID работающего проигрывателя, т.е. напр. MediaPlayer1.DeviceID