得到一个wma或mp3文件，如何用最简单的方法得到它的长度信息呢？

得到一个wma或mp3文件，如何用最简单的方法得到它的长度信息呢？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061108195617169.html

不需要知道歌手名专辑名等，只要长度即可，哪个指令可以做到呢？请给一点代码，万分感谢帮忙的兄弟！

uses MMSystem;

var
OpenParms: TMCI_Open_Parms;
StatusParm: TMCI_Status_Parms;
begin
OpenParms.lpstrDeviceType := '';
OpenParms.lpstrElementName := 'c:\1.mp3';
mciSendCommand(0, MCI_OPEN ,MCI_OPEN_ELEMENT, Longint(@OpenParms));
StatusParm.dwItem := mci_Status_Length;
mciSendCommand(OpenParms.wDeviceID, MCI_STATUS, MCI_STATUS_ITEM , Longint(@StatusParm));
ShowMessage(IntToStr(StatusParm.dwReturn)+'毫秒');
end;

多谢这位仁兄，我看到有的地方说用mediaplayer的length属性也可以，不知哪个好些，而且如果mp3的采样率不是恒定的话，用这种方法可行吗？

汗，我是参考Mediaplayer的Length属性实现代码才写出上面那一段的，实质都是一样的方法。