本文整理自网络，侵删。
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 从twebbrowser webbrowser得到全部html源码
Delphi combobox1dropdown 生成动态下拉列表
Delphi利用getprocessmemoryinfo获取进程占用内存大小
Delphi twebbrowser流程讲解及如何判断下载网页成功
Delphi setwindowshookex - 设置钩子 unhookwindowshookex - 卸掉钩子
更多相关阅读请进入《Delphi》频道 >>
