关于Delphi 7的MediaPlayer控件，在线等~~~~~~~~

Question

没办法，只能用他
用一个MediaPlayer控件后，我设置：
  MediaPlayer1.FileName := 'Music\town.mid';
  MediaPlayer1.Open;
可以播放了
但我想知道的更多，我要知道播放这首歌的总时间（这首歌总共能播几分钟），以及歌曲文件的长度，当前进度谁知道呢？

Answer 1

mediaplayer.length  //一共多少帧
mediaplayer.position  //当前位置

Answer 2

声音：
uses
   MMSystem;procedure TForm1.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;