SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, pchar('yyyy-MM-dd')); //设置短日期格式
SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLONGDATE, pchar('yyyy' + '年' + 'MM' + '月' + 'dd' + '日'));
SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, pchar('HH:mm:ss')); //设置时间格式,24小时制
SendMessageTimeOut(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_ABORTIFHUNG, 10, nil); //设置完成后必须调用,通知其他程序格式已经更改,否则即使是程序自身也不能使用新设置的格式