如何在程序中改变系统日期显示格式？

Question

如何在程序中改变系统日期显示格式？

Answer 1

注意看sysutils.pas 602行可以改变

Answer 2

setlocalinfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SDATE,'yyyy-M-d');
//'yyyy-M-d' 大小写敏感
但是建议最好不要更改用户的设置，自己程序要用的话：
label1.caption:=formatdatetime('YYYY"年"MMMMDD"日"',now );
//或者
label1.caption:=formatdatetime('YYYY"年"MMDD"日"',now);
  

Answer 3

1、定义变量
var SystemTime: TSystemTime;
2、转换日期
DateTimeToSystemTime(StrToDatetime('2002-09-27 11:12:12'-StrToDateTime('8:00')),SystemTime);
3、改变系统日期
SetSystemTime(SystemTime);
　　到此系统日期已经改变，可是由于API函数SetSystemTime()本身使用的是格林威志时间，所以中国一定要减去8小时的时差。在你改变系统日期以后，等待一会，你会看到改变以后的时间。