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

• 函数类型：　自定义函数

• 函数说明：

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

• 代码如下：

 function GetsysDateFormat: string;
var
  sgs: string;
begin
  SetLength(sgs, 12);
  GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, Pchar(sgs), 12);
  Result := string(Pchar(sgs));
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》