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;
 

相关阅读 >>

Delphi android 程序名称在哪里设置？

Delphi 首字母转换大写

Delphi整理五（枚举、子界、集合）

Delphi执行js

Delphi 实现窗体倒计时进度条显示

Delphi 调用相应程序打开网址

Delphi 资源管理器套件

Delphi winapi: loadstring - 从资源中载入字符串

Delphi midstr 返回指定范围内的字符串

Delphi 简单的软件注册demo

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 取得和设置当前系统的短日期格式