//引用单元：SysUtils  
//目的：实现跨环境兼容不同日期格式，如果不做强制格式处理，不同环境存在发生问题的可能性；  
function GetSysTimeByFormate: string;  
var  
  dtFormate: TFormatSettings;  
begin  
  try  
    dtFormate.ShortDateFormat := 'yyyy/MM/dd';  
    dtFormate.DateSeparator := '/';  
    dtFormate.LongTimeFormat := 'hh:mm:ss';  
    dtFormate.TimeSeparator := ':';  
    Result := DateTimeToStr(Now(),dtFormate);  
  except  
  end;  
end;