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》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...