仿Winamp做个播放器，请教几个问题

Question

想在自己做的小播放器中模仿Winamp，首先是时间，我想用Edit中显示歌曲已经播放时间，时间从00:00开始一直到结束，我想不出好办法，请教各位有什么好办法，能不能列出代码供小弟学习一下(自学Delphi不容易啊)
     2. 我用trackbar调节音量，代码如下：
        procedure TMain_Form.TrackBar2Change(Sender: TObject);
          var t,v:longint;
          begin
            t:=trackbar2.position;
            v:=(t shl 8)or(t shl 24);
            waveoutsetvolume(0,v);
          end;
       这样可以调节音量，但是即使是把音量调到最大声音也不大，这是为什么呢，怎么改呢
     3. 我还想问问，我想在Edit中实现文件名的滚动显示，怎样实现呢    小弟很喜欢Delphi，但是没有人教，只有靠自己学，遇到困难只有上网发帖求助，很辛苦，也许有很多前辈也是这样磨炼出来的，现在请各位前辈能多多指导，如果哪位高手GG能对小弟指导一二，不妨在这里留下QQ，方便请教，不胜感谢。

Answer 1

1.TMediaPlayer是有Position属性的
3.有TScrollText控件可以滚动2.控制音量的类：一个用来控制系统音量的类，包括了调节左右声道、静音等功能，已被收入CNpack。// --[Yoyoworks]----------------------------------------------------------------
// 工程名称：prjPowerFlashPlayer
// 软件名称：iPowerFlashPlayer
// 单元作者：许子健
// 开始日期：2004年03月14日，14:31:16
// 单元功能：用于音量调整的类。
// -----------------------------------------------------------[SHANGHAi|CHiNA]--Unit untTVolume;InterfaceUses MMSystem, SysUtils;Type
  TVolume = Class(TObject)
  Private
    FVolume: LongInt; //存储音量。
    FIsMute: Boolean; //存储静音值。
    Procedure SetLeftVolume(Volume: Integer); //设置左声道的音量。
    Function GetLeftVolume: Integer; //获得左声道的音量。
    Procedure SetRightVolume(Volume: Integer); //设置右声道的音量。
    Function GetRightVolume: Integer; //获得右声道的音量。
    Procedure SetIsMute(IsMute: Boolean); //设置是否静音。
  Public
    Constructor Create;
    Destructor Destroy; Override;
  Published
    Property LeftVolume: Integer Read GetLeftVolume Write SetLeftVolume;
    Property RightVolume: Integer Read GetRightVolume Write SetRightVolume;
    Property Mute: Boolean Read FIsMute Write SetIsMute;
  End;Implementation// -----------------------------------------------------------------------------
// 过程名：   TVolume.Create
// 参数：     无
// 返回值：   无
// -----------------------------------------------------------------------------
Constructor TVolume.Create;
Begin
  Inherited Create;
  FVolume := 0;
  FIsMute := False;
  //初始化变量
  waveOutGetVolume(0, @FVolume); //得到现在音量
End;// -----------------------------------------------------------------------------
// 过程名：   TVolume.Destroy
// 参数：     无
// 返回值：   无
// -----------------------------------------------------------------------------
Destructor TVolume.Destroy;
Begin
  Inherited Destroy;
End;// -----------------------------------------------------------------------------
// 过程名：   TVolume.SetLeftVolume
// 参数：     Volume: Integer
// 返回值：   无
// -----------------------------------------------------------------------------
Procedure TVolume.SetLeftVolume(Volume: Integer);
Begin
  If (Volume < 0) Or (Volume > 255) Then
    Raise Exception.Create('Range error of the left channel [0 to 255].');
  //如果“Volume”参数不在0至255的范围里，则抛出异常。  If FIsMute = False Then
    Begin
      waveOutGetVolume(0, @FVolume);
      //@示指向变量Volume的指针（32位），调用此函数的用意就是得到右声道的值，做到在调节左声道的时候，不改变右声道。
      FVolume := FVolume And $FFFF0000 Or (Volume Shl 8); //数字前加$表示是十六进制
      waveOutSetVolume(0, FVolume);
    End
      //如果不是静音状态，则改变音量；
  Else
    FVolume := FVolume And $FFFF0000 Or (Volume Shl 8);
  //否则，只改变变量。End;// -----------------------------------------------------------------------------
// 过程名：   TVolume.SetRightVolume
// 参数：     Volume: Integer
// 返回值：   无
// -----------------------------------------------------------------------------
Procedure TVolume.SetRightVolume(Volume: Integer);
Begin
  If (Volume < 0) Or (Volume > 255) Then
    Raise Exception.Create('Range error of the right channel [0 to 255].');  If FIsMute = False Then
    Begin
      waveOutGetVolume(0, @FVolume);
      FVolume := FVolume And $0000FFFF Or (Volume Shl 24);
      waveOutSetVolume(0, FVolume);
    End
  Else
    FVolume := FVolume And $0000FFFF Or (Volume Shl 24);
End;// -----------------------------------------------------------------------------
// 过程名：   TVolume.SetIsMute
// 参数：     IsMute: Boolean
// 返回值：   无
// -----------------------------------------------------------------------------
Procedure TVolume.SetIsMute(IsMute: Boolean);
Begin
  FIsMute := IsMute;
  If FIsMute = True Then
    waveOutSetVolume(0, 0)
  Else
    waveOutSetVolume(0, FVolume)
End;// -----------------------------------------------------------------------------
// 函数名：   TVolume.GetLeftVolume
// 参数：     无
// 返回值：   Integer
// -----------------------------------------------------------------------------
Function TVolume.GetLeftVolume: Integer;
Begin
  If FIsMute = False Then
    waveOutGetVolume(0, @FVolume); //得到现在音量
  Result := Hi(FVolume); //转换成数字End;// -----------------------------------------------------------------------------
// 函数名：   TVolume.GetRightVolume
// 参数：     无
// 返回值：   Integer
// -----------------------------------------------------------------------------
Function TVolume.GetRightVolume: Integer;
Begin
  If FIsMute = False Then
    waveOutGetVolume(0, @FVolume); //得到现在音量
  Result := Hi(FVolume Shr 16); //转换成数字
End;End.

Answer 2

1.TMediaPlayer的Position，Length属性，写个函数把毫秒转换转化成分秒
2.将TrackBar的Max属性设为255
3.用计时器控制Edit的Left属性
 要模仿做个播放器，最好先去下载个源码学着做

Answer 3

我还有一个小问题，我想在播放器中获取音频文件的文件，但是用Mediaplayer.filename取出的是文件的路径和文件名，现在用什么办法能把文件名从路径中抽取出来让我能单独使用呢