知识大全 利用Delphi建立精确计数器[2]
Posted 知
篇首语:时危见臣节,世乱识忠良。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 利用Delphi建立精确计数器[2]相关的知识,希望对你有一定的参考价值。
利用Delphi建立精确计数器[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
下面是具体的检测程序
unit Unit ;
interface
uses
Windows Messages SysUtils Classes Graphics Controls Forms Dialogs
StdCtrls ExtCtrls mmSystem;
type
TForm = class(TForm)
Edit : TEdit;
Edit : TEdit;
Edit : TEdit;
Button : TButton;
Button : TButton;
Timer : TTimer;
procedure FormCreate(Sender: TObject);
procedure Button Click(Sender: TObject);
procedure Timer Timer(Sender: TObject);
procedure Button Click(Sender: TObject);
private
Private declarations
public
Public declarations
end;
var
Form : TForm ;
actTime actTime :Cardinal;
smmCount sTimerCount sPCount:Single;
hTimeID:Integer;
iTen:Integer;
proTimeCallBack:TFNTimeCallBack;
procedure TimeProc(uTimerID uMessage: UINT;
dwUser dw dw : DWORD) stdcall;
procedure proEndCount;
implementation
$R * DFM
//timeSetEvent的回调函数
procedure proEndCount;
begin
actTime :=GetTickCount actTime ; Form Button Enabled :=False;
Form Button Enabled :=TRue;
Form Timer Enabled :=False;
smmCount:= ;
sTimerCount:= ;
spCount:= ;
timeKillEvent(hTimeID);
end;
cha138/Article/program/Delphi/201311/25027
相关参考
利用Delphi建立精确计数器[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! proced
利用Delphi建立精确计数器[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 在Windo
Delphi中票据凭证的精确打印 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 一概述 在银行
在Delphi中建立和使用别名[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 建立使用IN
知识大全 Delphi 中动态链接库(dll)的建立和使用[2]
Delphi中动态链接库(dll)的建立和使用[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!
知识大全 利用Delphi全面控制Windows任务栏[2]
利用Delphi全面控制Windows任务栏[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!&
Delphi学堂之在Delphi中自己建立交叉表 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!fu
Delphi数据库的动态建立 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! delphi最吸引人
在Delphi中建立和使用别名[3] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 设置模式的主
在Delphi中建立和使用别名[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! 通常我们在D