delphi 设定系日期格式

// 取得当前系统的短日期格式；

function GetsysDateFormat: string;

var

  sgs: string;

begin

  SetLength(sgs, 12);

  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, Pchar(sgs), 12);

  Result := string(Pchar(sgs));

end;

// 设定系日期格式；

procedure SetSysDateFormat(s: string);

begin

  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, Pchar(s));

end;