timers.hpp

来自「TOxygenSMS控件允许你发送接受文本和图片消息」· HPP 代码 · 共 49 行

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'Timers.pas' rev: 5.00

#ifndef TimersHPP
#define TimersHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Timers
{
//-- type declarations -------------------------------------------------------
struct TmmTimer
{
	int StartTicks;
	int ExpireTicks;
} ;

//-- var, const, procedure ---------------------------------------------------
static const int MaxTicks = 0x253c825;
static const Word TicksFreq = 0x68b;
static const Shortint SecsFreq = 0x5c;
extern PACKAGE int __fastcall Secs2Ticks(int Secs);
extern PACKAGE int __fastcall MSecs2Ticks(int MSecs);
extern PACKAGE void __fastcall NewTimer(TmmTimer &Tm, int Ticks);
extern PACKAGE void __fastcall NewTimerSecs(TmmTimer &Tm, int Secs);
extern PACKAGE bool __fastcall TimerExpired(const TmmTimer &Tm);
extern PACKAGE void __fastcall Pause(int mSec);
extern PACKAGE void __fastcall Pause2(int mSec);

}	/* namespace Timers */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Timers;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// Timers