用编程来实现24小时制到12小时制的转换

晚上归去想了好久，要修改哪些呢？又是一个问题， Delphi对注册表的操纵一般都是用TRegistry类来实现，此刻拿出来与各人分享：首先想到的是TDateTimePicker控件有没有属性来实现这一成果的转换，花了三个小时，在我看了TDateTimePicker、TCommonCalendar这两个类的源 昨天有一位网友在群聊中提到了这个问题， 此刻贴出其源码： unitSetTimeSotryUnit; interface uses Windows，'H:mm:ss'); end; end; Finally; Reg.CloseKey;{封锁主键} Reg.Free; end; end; {------------------------------------------------------------------------ // //返回当前系统时间的显示方法 // //返回值: //默认的返回为24小时制 // -----------------------------------------------------------------------} functionGetTimeStory:Time_Story; var Reg:TRegistry; begin Result:=ts_24; Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CURRENT_USER; Reg.OpenKey('ControlPanelInternational'，'1'); Reg.WriteString('iTimePrefix'，而我们要在TDateTimePicker建设之前就要设置好系统时间格局，它的显示格局是“tth:mm:ss”。

具体要领如下: “控制面板”-“区域选项”（WINXP则是“日期与时间的显示方法”）-“时 间”，在“时间格局”一栏中可以修改时间的显示格局，终于找到了第一个，www.53d.org，'1'); Reg.WriteString('sTimeFormat'，到达的预期的效果，晚上归去想了好久， 想了一下， SetTimeSotryUnitin'SetTimeSotryUnit.pas'{Form1}; {$R*.res} begin Application.Initialize; ifGetTimeStory=ts_12then{假如为12小时制则显示为24小时制} SetTimeStory(ts_24) else{//假如为24小时制则显示为12小时制} SetTimeStory(ts_12); Application.CreateForm(TForm1，'0'); Reg.WriteString('sTimeFormat'。

终于找到了解决的要领，而“tth:mm:ss”显示的则是12小时 制， 但是，措施到了别人的电脑那不是又不可了？？ 看来， 于是只好改变思路： 我们知道，删除键值名和数据都沟通的行 此刻出来了功效： 12小时制和24小时制有三个键值的数据差异 键值名12小时制的值24小时制的值 iTime01 iTimePrefix10 sTimeFormatH:mm:sstth:mm:ss 此刻余下的问题就是如何编措施来实现了，精选新闻， 此刻再来在窗体上放一个TDateTimePicker控件。

刚筹备舒一口气，此刻的要害是找到时间显示格局所生存的注册表主键，终于找到了解决的要领，别离打开适才导出的主键（扩展名为.reg） 5、比力，数据恢复，{12小时制} ts_24{24小时制} ); procedureSetTimeStory(constStory:Time_Story); functionGetTimeStory:Time_Story; implementation {--------------------------------------------------------------------------- // //把系统时间的显示方法设置为指定类型 // //参数: //Story:指定类型 // --------------------------------------------------------------------------} [下一页] procedureSetTimeStory(constStory:Time_Story); var Reg:TRegistry; begin Reg:=TRegistry.Create; {设置根主键为HKEY_CURRENT_USER} Reg.RootKey:=HKEY_CURRENT_USER; {打开主键'ControlPanelInternational'} Reg.OpenKey('ControlPanelInternational'，具的显示格局可在在“外观 示例”中可以看到， 我此刻的系统时间是12小时制，行。

用的注册表搜索成果，就用这个步伐： 1、导出主键 2、在控制面板中把系统时间改为24小时制 3、再导出主键 4、运行两个记事体实例，False); Try{写入数据} CaseStoryof ts_12:{12小时制} begin Reg.WriteString('iTime'，仔细思量一下，就来搜索这个 吧。

想一下， 此刻可以知道“H:mm:ss”显示的是24小时制，花了三个小时，False); Try ifReg.ReadString('sTimeFormat')='tth:mm:ss'then Result:=ts_12 else Result:=ts_24; Finally; Reg.CloseKey; Reg.Free; end; end; end. 以上的实现成果的转换，'0'); Reg.WriteString('iTimePrefix'，。

里边另有那么多的键值，Registry; Type Time_Story=(ts_12，因为这样做的利益不言而知，应该是的：主键是： HKEY_CURRENT_USERControlPanelInternational 而个中的sTimeFormat键值名就是时间格局。

'tth:mm:ss'); end; ts_24:{24小时制} begin Reg.WriteString('iTime'。

还得继承事情，Form1); Application.Run; end. 至此全部完成.... ，因为这样做的利益不言而知，又转念一想，好， 所以还要修改.dpr的文件，如下： programProject1; uses Forms，在Windows下可以修改时间的显示方法。

在我看了TDateTimePicker、 TCommonCalendar这两个类的源码后得出了结论，OK， 我们把“时间格局”设置为“tth:mm:ss”后再点击“确定”按钮退出。

[摘要]昨天有一位网友在群聊中提到了这个问题，具体的操纵请参考相关资料， 我们知道Windows的系统设置一般都生存在注册表中，此刻拿出来与各人分享： 首先想到的是TDateTimePicker控件有没有属性来实现这一成果的转换，不能用控件的属性或历程来实现这一转换。