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 如何获取桌面图标方法

Delphi append 追加内容到文件中

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi显示 jpg、png、gif 图片及 gif 动画

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

Delphi编程之显示桌面分辨率

Delphi 新增功能之: ioutils 单元(7): tfile 结构的功能

orangeui作者开源作品

Delphi 动态数组传递数据示例

Delphi xe android 程序切换到后台及从后台切换到前台实现

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