捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
设置系统日期时间格式
关键字:DateTime 系统 日期 时间 格式
来 自:原创
平 台:Win2k/XP/NT,Win2003 下载所需:0 火柴
深浅度:初级 完成时间:2005/1/5
发布者:rongxingdelphi 发布时间:2005/1/7
编辑器:DELPHI7 语  种:简体中文
分 类:系统 下载浏览:1300/15334
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名:
 密 码:
自动登陆(30天有效)
图片如果打不开,说明流量不够了,请稍候下载……
在ERP中经常要设置客户端电脑的日期和时间格式,就写了这个小软件.
Google
 
本站原创作品,未经作者许可,严禁任何方式转载;转载作品,如果侵犯了您的权益,请联系我们
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
 相关文章
互联网时间同步小程序
zbzb 2007/6/21 下+2943/浏+14438 评+6
设置系统日期时间格式
rongxingdelphi 2005/1/7 下+1300/浏+15335 评+10
相关评论
共有评论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是个什么东东呀?
各位大侠请多指教
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表