注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi获得与设置系统时间格式(win8下通过测试)  

2014-09-05 13:42:50|  分类: Delphi xe6 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
{在程序初始化时调用GetDateTimeFormat,将取出的设置保存起来,然后用SetDateTimeFormat设置需要的格式。
在程序退出时再次调用SetDateTimeFormat将保存的值写回去。
当然,如果程序已经在运行,别的程序也象我们这样把格式改成它需要的格式,那就没办法了,
同时就只能运行一个,否则会互相干扰。如果一定要想办法的话,或许可以处理 WM_SETTINGCHANGE 消息,
再把改掉的改回来?有点强盗。}
//设置时间格式
procedure SetDateTimeFormat();
begin
  //设置短日期格式
  //设置长日期格式为 yyyy'年'M'月'd'日',“年月日”字符必须用单引号括起来。Delphi字符串里必须用两个单引号
  SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, PWideChar('yyyy-MM-dd'));
  //设置时间格式,24小时制
  SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STIMEFORMAT, PWideChar('H:mm:ss'));
  //设置长日期格式
  SetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLONGDATE, PWideChar('yyyy''年''M''月''d''日'''));
  //设置完成后必须调用,通知其他程序格式已经更改,否则即使是程序自身也不能使用新设置的格式
  SendMessageTimeOut(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_ABORTIFHUNG, 10, nil);
end;
  评论这张
 
阅读(289)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017