20121219 12:56 修改电脑日期格式

1 procedure SetDateTimeFormat;  
2 var   p: DWORD;       //TFormatSettings ; 
3 begin   
4     SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, pchar('yyyy-MM-dd')); //设置短日期格式  
5        SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, pchar('H:mm:ss')); 
6     //设置时间格式，24小时制    
7      SendMessageTimeOut(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_ABORTIFHUNG, 10, p); 
8     //设置完成后必须调用，通知其他程序格式已经更改，否则即使是程序自身也不能使用新设置的格式 
9 end;