//循环
while (true) do
begin
if (用函数判断用户干预) then Break;
//PLAYSOUND
end;
while (true) do
begin
if (用函数判断用户干预) then Break;
//PLAYSOUND
end;
解决方案 »
- 如何用ClientDataSet1调用oracel返回带参数存储过程?
- Delphi中SHBrowserForFolder怎么设置初始目录?
- 放分200支持menggirl做版主 -- 高级打字员
- 在一个Hookdll里,我要写一个进程的内存,除了WriteProcessMemory还有其他办法吗?
- 100分:变体类型怎么转换成STRING?
- 关于一文件夹????
- 如何用BitBlt函数实现贴图时将源图像的背景色滤除?
- 通过字符串变量调用控件的属性可以吗?
- 哪里Delphi6的控件比较多阿!我想下载一些!
- 请问如何向DLL中传递TDataModule
- 如何用Delphi实现GIf图片的添加(会动的)
- 怎样利用TStream读取可执行文件中的图片?如一些安装程序,屏幕保护程序等。
if mediaplayer1.mode=mpstopped then
begin
mediaplayer1.open;
mediaplayer1.play;
end;