[Anti_L@+meR]

копай в эту сторону
это звук

Код:

function GetMPVolume(MP: TMediaPlayer): Integer;

procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);


uses
  MMSystem;

const

  MCI_SETAUDIO = $0873;
  MCI_DGV_SETAUDIO_VOLUME = $4002;
  MCI_DGV_SETAUDIO_ITEM = $00800000;
  MCI_DGV_SETAUDIO_VALUE = $01000000;
  MCI_DGV_STATUS_VOLUME = $4019;

type
  MCI_DGV_SETAUDIO_PARMS = record
    dwCallback: DWORD;
    dwItem: DWORD;
    dwValue: DWORD;
    dwOver: DWORD;
    lpstrAlgorithm: PChar;
    lpstrQuality: PChar;
  end;

type

  MCI_STATUS_PARMS = record
    dwCallback: DWORD;
    dwReturn: DWORD;
    dwItem: DWORD;
    dwTrack: DWORD;
  end;

procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
  { Volume 0 - 1000 !!!}
var
  MP_PARAMS: MCI_DGV_SETAUDIO_PARMS;
begin
  MP_PARAMS.dwCallback := 0;
  MP_PARAMS.dwItem := MCI_DGV_SETAUDIO_VOLUME;
  MP_PARAMS.dwValue := Volume;
  MP_PARAMS.dwOver := 0;
  MP_PARAMS.lpstrAlgorithm := nil;
  MP_PARAMS.lpstrQuality := nil;
  mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@MP_PARAMS));
end;

function GetMPVolume(MP: TMediaPlayer): Integer;
var 
  MP_PARAMS: MCI_STATUS_PARMS;
begin
  MP_PARAMS.dwCallback := 0;
  MP_PARAMS.dwItem := MCI_DGV_STATUS_VOLUME;
  mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@MP_PARAMS));
  Result := MP_PARAMS.dwReturn; 
end;

А прокрутку MediaPlayer1.Position
и MediaPlayer1.Length