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;