Oder meintest Du es so?
Delphi-Quellcode:
var
FmtSet: TFormatSettings;
tmp: String;
i: Integer;
begin
GetLocaleFormatSettings(LOCALE_USER_DEFAULT, FmtSet);
ShowMessage(FmtSet.ShortDateFormat);
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FmtSet);
ShowMessage(FmtSet.ShortDateFormat);
tmp := FmtSet.ShortDateFormat;
for i := 1 to Length(tmp) do
begin
if tmp[i] = 'd' then tmp[i] := 'T';
if tmp[i] = 'y' then tmp[i] := 'J';
end;
ShowMessage(tmp);
end.
Das zeigt Dir eventuell bei Englisch Windows mit Deutscher Einstellung zwei verschiedene Setups an?
Ps: Ergebnis bei mir ist: 2 x dd.MM.yyyy und zu letzt Dein TT.MM.JJJJ