如何用API函数获得MP3，WMA等歌曲的时间长度

发布网友发布时间：2022-04-21 15:34

共3个回答

热心网友时间：2023-07-14 23:57

'获取媒体的长度 00:00
Public Function GetMusicLengthString(FileName As String) As String
Dim RefStr As String * 80
mciSendString "status " & FileName & " length", RefStr, 80, 0
GetMusicLengthString = CStr(Format(Int(Val(RefStr) \ 1000 \ 60), "00") & "：" & Format(Val(RefStr) \ 1000 Mod 60, "00.") & Val(RefStr) \ 100 Mod 10)
End Function

热心网友时间：2023-07-14 23:58

Public Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long追问这个函数哪是获取时间差的函数，而是删除文件的。

热心网友时间：2023-07-14 23:58

可以直接通过每秒字节数换算
参考

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com