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;