delphi編程實現改變操作系統日期

　　日期函數Now()Date()Time()大家都用得多了這些函數是讀取系統日期時間的可是遇到需要改變操作系統的時間時他們就一點辦法也沒有而Delphi又沒有提供相關的函數所以只好求助於API函數SetSystemTime(SystemTime);無奈他要求的變量SystemTime太古怪了屬於TSystemTime需要經過轉換才可以得到所以舉例如下

　　定義變量

　　var SystemTime: TSystemTime;

　　轉換日期

　　DateTimeToSystemTime(StrToDatetime( :: )SystemTime);

　　改變系統日期

　　SetSystemTime(SystemTime);

　　到此系統日期已經改變可是由於API函數SetSystemTime()本身存在的BUG在你改變系統日期以後等待一會你會看到系統的日期是對的可是時間卻錯了並不是我們設定的::這樣的問題看來需要微軟才能解決了

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