Delphi 获取系统时间后格式化输出

//引用单元：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;