如何检测一个mp3文件正在播放 ( 积分: 50 )

我想做一个小外挂,检测一个mp3文件,当检测到文件下在播,就进行一些其它操作,请指点如何检测这个mp3文件正在播放呢?
在线,谢谢!

很简单的
if reNamefile(frompath,topath)=true then

begin

sowmessage('没在播放!');
reNamefile(topath,frompath)
end
else

sowmessage('在播放!');
end;

To:wqhatnet
谢谢你的回答,我试了一下,可以通重命名mp3所在文件夹的名子失败来确定mp3文件正在播放,但这样改变了路径,如果我立刻改回,能不能保证另一个程序播放此mp3文件不出现错误吗?

{-----------------------------------------------------------------------------
函数名称: IsFileInUse
作者: Levon819@msn.com
日期: 2007-四月-09
参数: const fName: string
结果: Boolean
功能: 判断文件是否正在使用;
-----------------------------------------------------------------------------}
function IsFileInUse(const fName: string): Boolean;
var
HFileRes: HFILE;
begin

result := false;
if not FileExists(fName) then

exit;
HFileRes := CreateFile(PCHAR(fName), GENERIC_READ or GENERIC_WRITE,
0 {this is the trick!}, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
result := (HFileRes = INVALID_HANDLE_VALUE);
if not result then

CloseHandle(HFileRes);
end;

To:rwlin
谢谢,问题解决了,我建个帖你来接分107.