How can we get the length of a WMA or mp3 file in the simplest way?

How can we get the length of a WMA or mp3 file in the simplest way? Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061108195617169.html
No need to know the artist name, album name, etc., as long as the length is enough, which command can be done? Please give me a bit Code Thank you!

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) + 'millisecond ');
End;

Thanks to this dear friend, I have seen that the Length attribute of mediaplayer can also be used. I don't know which one is better. If the MP3 sampling rate is not constant, is this method feasible?

Khan, I wrote the above section only by referring to the Length attribute implementation code of mediaplayer. The essence is the same method.