delphi timer 倒计时 - Delphi / 数据库相关
我做了一个答题程序，想在答题页面一出现的时候开始倒计时60秒，时间到的时候发出蜂鸣，提示时间到，不用蜂鸣，用提示框也可以，代码怎样写，蜂鸣函数是什么，谢谢
先定一个变量 比如 i ：= 60；
timer设置为1秒，然后执行timer事件，每次 i:=i-1;当i=0时即到时
用Timer吧，直接倒计时。
蜂鸣，可以直接用Beep（）
Beep（）函数就"嗒"一声就没了，有没有声音多些的
那就要自己写程序了。
或者去网上找找相关程序，有不少。
对了，或者用PlaySound来实现。
uses mmSystem;
PlaySound(PChar(S_Name),0,SND_FILENAME or SND_ASYNC);
S_Name是什么呢
你我如果想要这样格式的倒计时，怎么写？
00：00：60
想要倒计时一分三十秒的时候，这样写怎么倒计时
00：01：30
倒计时二楼说的就是。
S_Name是你自己需要的声音文件名，包括扩展名在内，比如 S1.wav
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
//DLL 放在EXE中没问题
function SkinForm(var skfrm:TForm):Integer;stdcall;
var
skf:TbsBusinessSkinForm;
nskfrm:TForm;
begin
frmUUMain:=skfrm;
skf:=TbsBus ......
