新建一窗体,加入mediaplayer和timer控件(在system面板上)
timer控件,它的属性interval(1000=1秒),多少秒检测一次;
事件ontimer
代码如下
with table do
begin
close;
sql.Clear ;
sql.add('select count() as sl from zouhuo');
sql.add(' where 条件表达式');
open;
if fieldbyname('sl').value>0 then
begin
mediaplayer1.filename:='D:/My Documents/声音文件/Start.wav';
//声音文件/
try
mediaplayer1.open;
mediaplayer1.play;
except
showmessage('声音文件读取错误!请与系统管理员联系!!');
end;
end;