日期函数Now()Date()Time()大家都用得多了这些函数是读取系统日期时间的可是遇到需要改变操作系统的时间时他们就一点办法也没有而Delphi又没有提供相关的函数所以只好求助于API函数SetSystemTime(SystemTime);无奈他要求的变量SystemTime太古怪了属于TSystemTime需要经过转换才可以得到所以举例如下
定义变量
var SystemTime: TSystemTime;
转换日期
DateTimeToSystemTime(StrToDatetime( :: )SystemTime);
改变系统日期
SetSystemTime(SystemTime);
到此系统日期已经改变可是由于API函数SetSystemTime()本身存在的BUG在你改变系统日期以后等待一会你会看到系统的日期是对的可是时间却错了并不是我们设定的::这样的问题看来需要微软才能解决了
