Delphi设置日期格式

procedure SetTimeFormatX;

var
  P: DWORD;
begin
  try
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_IDIGITS, '2');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_ICURRDIGITS, '2');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SLONGDATE, 'yyyy-MM-dd');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STIMEFORMAT, 'HH:mm:ss');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDATE, '-');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STIME, ':');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_S1159, '');
    SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_S2359, '');
    SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_ABORTIFHUNG, 10, P);
  except
  end;
end;