Delphi设置日期格式

最新推荐文章于 2025-06-11 10:45:55 发布

转载最新推荐文章于 2025-06-11 10:45:55 发布 · 1.2k 阅读

Delphi 专栏收录该内容

10 篇文章

订阅专栏

procedure SetTimeFormatX;

var
P: DWORD;
begin
try
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_IDIGITS, '2');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_ICURRDIGITS, '2');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SLONGDATE, 'yyyy-MM-dd');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STIMEFORMAT, 'HH:mm:ss');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDATE, '-');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STIME, ':');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_S1159, '');
SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_S2359, '');
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0, SMTO_ABORTIFHUNG, 10, P);
except
end;
end;