知识大全 利用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]

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

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

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

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

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

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

在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中自己建立交叉表

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

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

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

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

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

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

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