Did you try to parameterize the function DateTimeToStr() by including a variable of type TFormatSettings ?,
e.g.:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var tf: TFormatSettings;
begin
GetLocaleFormatSettings(GetSystemDefaultLCID, tf);
Showmessage(DateTimeToStr(GetFolderDate('c:\Windows'),tf));
end;
If that will fail, then are you absolutely shure calling for a time stamp of a truly existing foldername ? Curiously enough, if you are calling GetFolderDate() for an empty or nonexisting or misspelled foldername that will respond with a time stamp corresponding to '30.12.1899'.