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 学习 sql 语句 - select(9): 其他

Delphi 查找某函数在某个单元

Delphi 释放bitmap

Delphi xe5 中tmemo控件的应用――for android

Delphi 详解variant 的相关函数

Delphi发送邮件―中文显示为乱码解决

Delphi 动态加载删除字体

Delphi检测网络连接状态

在Delphi中进行指纹仪的二次开发

Delphi让程序运行后自我删除或恢复名称

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

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