捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:设置系统日期时间格式
hy_kkk 23964 2006/5/29 23:24:28
AppHandle声明是什么类型呀 ?MYAPPNAME是个什么东东呀?
各位大侠请多指教
lai_ke 22884 2006/4/13 10:01:58
还需要再退出一下。
下一次运行就生效了。
lai_ke 22881 2006/4/13 9:36:27
加上 
 ShortDateFormat:='yyyy-mm-dd';
就行了
chx 11772 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);//调试时显示系统时间格式未更改?
 。。。。
galton 11534 2005/1/10 10:27:05
很好
leo 11475 2005/1/9 12:58:10
最好把常用的日期\时间格式加上,让用户自己选
mikean 11465 2005/1/9 0:03:50
最好把更改“时区”的功,及自动网络对时的功能,也加上,就更好些。
justim 11462 2005/1/8 22:11:15
我第三个谢谢你的提供!
liumazi 11443 2005/1/8 14:00:30
我第二个谢谢你提供!
tim001 11434 2005/1/8 10:45:27
我第一个谢谢你提供!
第一页 上一页 下一页 最后页 有 10 条纪录 共1页 1 - 10
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表