Hallo,
so, nach einigem Testen hab ich es nun auch geschafft.
Ein dickes Dankeschön sende ich an DeddyH' für die beiden entscheidenden Hinweise!
Meine Umsetzung:
Delphi-Quellcode:
...
var
Time1: SystemTime;
Time2: TFileTime;
my_Handle: THandle;
...
begin
...
my_Handle := FileOpen(Main_Form.sl_Master[i], fmOpenWrite or fmShareDenyNone);
DateTimeToSystemTime(ExifData.DateTimeOriginal, Time1);
SystemTimeToFileTime(Time1, Time2);
SetFileTime(my_Handle, @Time2, @Time2, @Time2);
CloseHandle(my_Handle);
...
end;
...
Ich hoffe dass ich auch alles richtig verstanden und auch richtig umgesetzt habe.
@Sir Rufo,
danke für den Hinweis, ich war wohl zu unpräzise.
Ich möchte das Änderungsdatum setzen, wie es in der Explorerspalte "Änderungsdatum" auch angezeigt wird. Da müsste "LastAccessTime" richtig sein.
Danke an alle für die Unterstützung und ein schönes Wochenende!
