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

　　{------------------------------------------------------------------------ 　　// 　　//返回当前系统时间的显示方式 　　// 　　//返回值: 　　//默认的返回为24小时制 　　// 　　-----------------------------------------------------------------------} 　　functionGetTimeStory:Time_Story; 　　var 　　Reg:TRegistry; 　　begin 　　Result:=ts_24; 　　Reg:=TRegistry.Create; 　　Reg.RootKey:=HKEY_CURRENT_USER; 　　Reg.OpenKey('\ControlPanel\International',False); 　　Try 　　ifReg.ReadString('sTimeFormat')='tth:mm:ss'then 　　Result:=ts_12 　　else 　　Result:=ts_24; 　　Finally; 　　Reg.CloseKey; 　　Reg.Free; 　　end; 　　end; 　　 　　end. 　　 　　以上的实现功能的转换，而我们要在TDateTimePicker创建之前就要设置好系统时间格式。 　　所以还要修改.dpr的文件，如下： 　　programProject1; 　　 　　uses 　　Forms, 　　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,Form1); 　　Application.Run; 　　end. 　　 　　至此全部完成.... 　　 　　　　　　　　 　　希望看到更多更经典的开发技巧，请随时刷新《开发特区》栏目。