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

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

1、定義變量

var SystemTime: TSystemTime;

2、轉換日期

DateTimeToSystemTime(StrToDatetime(1999-09-01 11:12:12 ),SystemTime);

3、改變系統日期

SetSystemTime(SystemTime);

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