uses messages;
Procedure SetDateFormat; //设置系统日期格式
var
buf:pchar;
i:integer;
p:DWORD;
begin
getmem(buf,100);
i:=100; //i必须在调用前赋值为buf缓冲区的长度。如果设为0或负值，将取不到设置的值
GetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,buf,i); //取当前用户设置，短日期格式。
if trim(string(buf))<>‘yyyy/MM/dd‘ then
begin
SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar(‘yyyy/MM/dd‘)); //设置短日期格式
SendMessageTimeOut(HWND_BROADCAST,WM_SETTINGCHANGE,0,0,SMTO_ABORTIFHUNG,10,p);//设置完成后必须调用，通知其他程序格式已经更改，否则即使是程序自身也不能使用新设置的格式
end;
end;
使用SetLocaleInfo设置时间后必须调用广播WM_SETTINGCHANGE，通知其他程序格式已经更改
原文：http://www.cnblogs.com/findumars/p/5398783.html