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;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.23264193534851 seconds