如何将系统日期的短日期格式设为 yyyy-MM-dd形式?

Question

如何将系统日期的短日期格式设为 yyyy-MM-dd形式? 谢谢!

Answer 1

function TPubFunc.PASetLocalInfo(DatetimeFormat: String;
  lnType: Integer): Boolean;
var
  ld: LCID;  
begin
  ld := GetUserDefaultLCID();
  SetLocaleInfo(ld, lnType, PChar(DatetimeFormat));
  SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, 0);
  Result := True;
end;
//调用样例
PubFunc.PASetLocalInfo('yyyy-MM-dd', LOCALE_SSHORTDATE);

Answer 2

  SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy-MM-dd')); //短日期
  SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SLONGDATE,pchar('yyyy-MM-dd'));

Answer 3

pchar('yyyy''年''MM''月''dd''日''')   //设置长日期格式为 yyyy'年'M'月'd'日

Answer 4

SetLocaleInfo(LOCALE_USER_DEFAULT,LOCALE_SSHORTDATE,pchar('yyyy-MM-dd'));