本文整理自网络，侵删。
function TForm1.GetsysShortDateFormat: string;
var
sgs:string;
begin
setlength(sgs,12);
GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE ,PChar(sgs),12);
result:=string(pchar(sgs));
end;function TForm1.GetsysLongDateFormat: string;
var
sgs:string;
begin
setlength(sgs,12); //delphitop.com
GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SLONGDATE ,PChar(sgs),12);
result:=string(pchar(sgs));
end;function TForm1.GetsysTimeFormat: string;
var
sgs:string;
begin
setlength(sgs,12);
GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_STIMEFORMAT ,PChar(sgs),12);
result:=string(pchar(sgs));
end;
var
str: string;
begin
str := 'HH:mm:ss';
if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_STIMEFORMAT, PChar(str)) then
begin
showmessage('时间格式设置成功');
end;
var
str: string;
begin
str := 'yyyy-MM-dd';
if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, PChar(str)) then
begin
showmessage('短日期格式设置成功');
end;
var
str: string;
begin
str := 'yyyy-MM-dd';
if SetLocaleInfoa(LOCALE_SYSTEM_DEFAULT, LOCALE_SLONGDATE, PChar(str)) then
begin
showmessage('长日期格式设置成功');
end; 相关阅读 >>
Delphi sendtextmessage 等方便的消息发送函数
Delphi 多核机器上编程实现将指定进程pid放到指定cpu上运行
Delphi格式化函数format、formatdatetime和formatfloat
Delphi实现进制转化（2进制，8进制，10进制，16进制）
Delphi fdconnection取得excel工作表名
更多相关阅读请进入《Delphi》频道 >>
