Änderungsdatum neu setzen, das neue Änderungsdatum liegt als TDateTime vor... Wie?

[juergen]

@musicman56,
, sehr aufmerksam! Das Problem hatte ich schon erkannt und gelöst (dabei hatte mir jemand geholfen).
Meine momentane Lösung sieht nun so aus:

Delphi-Quellcode:

var
...
  Age: Integer;
  LocalFileTime, FileTime: TFileTime;
  hFile: THandle;
... 
begin // Setzen des Dateidatum mit dem Aufnahmedatum
  hFile := FileOpen(FCurFile_Exif, fmOpenWrite or fmShareDenyNone);
  try
    Age := DateTimeToFileDate(ExifData.DateTimeOriginal);
    if DosDateTimeToFileTime(LongRec(Age).Hi, LongRec(Age).Lo,
      LocalFileTime)
      and LocalFileTimeToFileTime(LocalFileTime, FileTime) then begin
      SetFileTime(hFile, @FileTime, nil, @FileTime);
    end;
  finally
    FileClose(hFile);
  end;
end;...