知识大全利用Delphi建立精确计数器[3]

Posted 2022-07-21 知

篇首语：坚志而勇为，谓之刚。刚，生人之德也。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用Delphi建立精确计数器[3]相关的知识，希望对你有一定的参考价值。

利用Delphi建立精确计数器[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　procedure TimeProc(uTimerID uMessage: UINT;

　　 dwUser dw dw : DWORD) stdcall;

　　begin

　　 Form Edit Text:=FloatToStr(smmCount);

　　 smmCount:=smmCount ;

　　end;

　　procedure TForm FormCreate(Sender: TObject);

　　begin

　　Button Caption :=´开始倒计时´;

　　 Button Caption :=´结束倒计时´;

　　 Button Enabled :=False;

　　 Button Enabled :=True;　　　　 Timer Enabled :=False;

　　 smmCount:= ;

　　 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;

cha138/Article/program/Delphi/201311/25028

相关参考

知识大全利用Delphi建立精确计数器[1]

利用Delphi建立精确计数器[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　在Windo

知识大全利用Delphi建立精确计数器[2]

利用Delphi建立精确计数器[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　下面是具体的

知识大全在Delphi中建立和使用别名[3]

在Delphi中建立和使用别名[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　设置模式的主

知识大全 Delphi中票据凭证的精确打印

Delphi中票据凭证的精确打印以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　一概述　　在银行

知识大全 Delphi学堂之在Delphi中自己建立交叉表

Delphi学堂之在Delphi中自己建立交叉表以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！fu

知识大全 Delphi数据库的动态建立

Delphi数据库的动态建立以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　delphi最吸引人

知识大全在Delphi中建立和使用别名[2]

在Delphi中建立和使用别名[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　建立使用IN

知识大全在Delphi中建立和使用别名[1]

在Delphi中建立和使用别名[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　通常我们在D

知识大全 Delphi 中动态链接库（dll）的建立和使用[2]

Delphi中动态链接库（dll）的建立和使用[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

知识大全 Delphi 中动态链接库（dll）的建立和使用[1]

Delphi中动态链接库（dll）的建立和使用[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

知识大全 利用Delphi建立精确计数器[3]

知识大全利用Delphi建立精确计数器[3]