| 现在出来了结果： 12小时制和24小时制有三个键值的数据不同 键值名12小时制的值24小时制的值 iTime01 iTimePrefix10 sTimeFormatH:mm:sstth:mm:ss 现在余下的问题就是如何编程序来实现了。 Delphi对注册表的操作一般都是用TRegistry类来实现，具体的操作请参考相关资料。 现在贴出其源码： unitSetTimeSotryUnit; interface uses Windows,Registry; Type Time_Story=(ts_12,{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; {打开主键'\ControlPanel\International'} Reg.OpenKey('\ControlPanel\International',False); Try{写入数据} CaseStoryof ts_12:{12小时制} begin Reg.WriteString('iTime','0'); Reg.WriteString('iTimePrefix','1'); Reg.WriteString('sTimeFormat','tth:mm:ss'); end; ts_24:{24小时制} begin Reg.WriteString('iTime','1'); Reg.WriteString('iTimePrefix','0'); Reg.WriteString('sTimeFormat','H:mm:ss'); end; end; Finally; Reg.CloseKey;{关闭主键} Reg.Free; end; end; 希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。 |
閺€鎯版閹存劕濮�閺屻儳婀呴弨鎯版>>
正在阅读：用编程来实现24小时制到12小时制的转换用编程来实现24小时制到12小时制的转换
2004-02-14 09:34
出处：PConline
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
