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 实现文件分割合并

Delphi firedac 下的 sqlite [11] - 关于批量提交 sql 命令的测试

Delphi 在tedit中显示水印提示

Delphi 下找到目录中的所有文件夹

Delphi连接access提示密码无效解决一例

Delphi 扫雷外挂

tmsweb core 组件居中显示

Delphi webbrowser不能复制粘贴问题的解决办法

Delphi 图像灰度化处理

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

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