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

[musicman56]

Hallo,

Zitat:

...aber mit DateTimeToSystemTime und anschließend SystemTimeToFileTime müsste das doch gehen.

und vielleicht noch an die lokale Zeit anpassen mit "LocalFileTimeToFileTime"

[juergen]

@musicman56,
:mrgreen:, 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;...

[himitsu]

Das DOS-FileDate hat eine sehr geringe Auflösung, darüber würde ich nicht rechnen (zumindestens die Sekunden würden verfälscht werden).

Nimm besser den Weg von DateTime über SystemTime (statt FileDate) und LocalFileTime nach FileTime.