|
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>> 判断日期是否改变 本例主要应用了Windows消息处理当本地时间发生改变时则程序会调用此消息并弹出信息框提示时间被改动 程序运行结果如图所示 图 判断日期是否改变 主要代码如下 在程序的私有部分声明一个过程 procedure WMTimeChange(var msg:TMessage);message WM_TIMECHANGE; 为此过程添加如下代码 procedure TFormWMTimeChange(var msg: TMessage); begin ApplicationMessageBox(时间被改动！提示MB_OK+); end; 获取全球标准时间 本例中主要应用了GetLocalTime函数和GetSystemTime函数这两个函数分别用于返回当前日期和时间和格林威治时间 运行本例单击确定按钮将在Memo组件中添加本地时间和全球标准时间 程序运行结果如图所示 图 获取全球标准时间 主要代码如下 procedure TFormButtonClick(Sender: TObject); var LTST : TSystemTime; begin GetLocalTime(LT); GetSystemTime(ST); MemoLinesAdd(LocalTime = + IntToStr(LTwmonth) + / + IntToStr(LTwDay) + / + IntToStr(LTwYear) + + IntToStr(LTwHour) + : + IntToStr(LTwMinute) + : + IntToStr(LTwSecond)); MemoLinesAdd(UTCTime = + IntToStr(STwmonth) + / + IntToStr(STwDay) + / + IntToStr(STwYear) + + IntToStr(STwHour) + : + IntToStr(STwMinute) + : + IntToStr(STwSecond)); end; |
