判斷日期是否改變與獲取全球標准時間

    ——此文章摘自《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;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24887.html