|
盒子资源分类 |
|
|
|
|
设置系统日期时间格式 |
|
关键字:DateTime 系统 日期 时间 格式 |
来 自:原创 |
平 台:Win2k/XP/NT,Win2003 |
下载所需:0 火柴 |
深浅度:初级 |
完成时间:2005/1/5 |
发布者:rongxingdelphi |
发布时间:2005/1/7 |
编辑器:DELPHI7 |
语 种:简体中文 |
分 类:系统 |
下载浏览:1300/15334 |
|
|
|
|
在ERP中经常要设置客户端电脑的日期和时间格式,就写了这个小软件. |
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们! |
相关文章 |
|
|
|
相关评论 |
|
共有评论10条
当前显示最后6条评论
|
leo |
2005/1/9 12:58:10 |
最好把常用的日期\时间格式加上,让用户自己选 |
galton |
2005/1/10 10:27:05 |
很好 |
chx |
2005/1/15 10:34:12 |
请问各位高手: 以下代码前面可更改系统日期时间格式(从控制面板上可查到已更改),但后面取出来的格式还是没更改的格式。问题出在什么地方 begin Application.Initialize; //防止重复打开 AppHandle := FindWindow(MYAPPNAME, nil); if AppHandle > 0 then begin PostMessage(AppHandle, CM_RESTORE, 0, 0); Exit; end; CallLogo; str := 'yyyy-MM-dd'; SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, PChar(str));//setdate str := 'HH:mm:ss'; SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_STIMEFORMAT, PChar(str));//settime
FormSplash.labInfo.Caption := '正在检查日期格式...'; application.ProcessMessages; dDate := Date; tTime := Time; str:=datetostr(dDate);//调试时显示系统日期格式未更改? str:=timetostr(tTime);//调试时显示系统时间格式未更改? 。。。。 |
lai_ke |
2006/4/13 9:36:27 |
加上 ShortDateFormat:='yyyy-mm-dd'; 就行了 |
lai_ke |
2006/4/13 10:01:58 |
还需要再退出一下。 下一次运行就生效了。 |
hy_kkk |
2006/5/29 23:24:28 |
AppHandle声明是什么类型呀 ?MYAPPNAME是个什么东东呀? 各位大侠请多指教 |
我要发表评论 |
查看全部评论 |
|
|
|