如何用delphi做一个倒计时程序

delphi中有一个控件叫做“TTimer”,在“system”那一栏中，它是一个定时器。你可以设置它多长时间触发一次。比如，你的定时程序要它1分钟后报时。你可以设置它的interval属性等于60，然后在时间中加入蜂鸣函数即可。

procedure TimeProc(uTimerID uMessage: UINT

    dwUser dw dw : DWORD) stdcall

begin

  Form Edit Text:=FloatToStr( *** mCount)

  *** mCount:= *** mCount

end

procedure TForm FormCreate(Sender: TObject)

begin

  Button Caption :=´开始倒计时´

  Button Caption :=´结束倒计时´

  Button Enabled :=False

  Button Enabled :=True  Timer Enabled :=False

  *** mCount:=

  sTimerCount:=

  sPCount:= end

procedure TForm Button Click(Sender: TObject)

var

  lgTick lgTick lgPer:TLargeInteger

  fTemp:Single

begin

  Button Enabled :=True

  Button Enabled :=False

  Timer Enabled :=True

  Timer Interval :=

  proTimeCallback:=TimeProc

  hTimeID:=timeSetEvent( proTimeCallback )

  actTime :=GetTickCount

  //获得系统的高性能频率计数器在一毫秒内的震动次数

  QueryPerformanceFrequency(lgPer)

  fTemp:=lgPer/

  iTen:=Trunc(fTemp* )

  QueryPerformanceCounter(lgTick )

  lgTick :=lgTick

  sPCount:=

  while sPCount>do begin

    QueryPerformanceCounter(lgTick )

    //如果时钟震动次数超过 毫秒的次数则刷新Edit 的显示

    If lgTick lgTick >iTen Then begin

            lgTick := lgTick

            sPCount := sPCount

            Edit Text := FloatToStr(sPCount)

            Application ProcessMessages

    end

  end

end

lishixinzhi/Article/program/Delphi/201311/25028

---