Mit
SysUtils
kann man doch folgendes basteln:
Delphi-Quellcode:
FileHandle:=FileOpen(aPath + SR.Name, fmOpenReadWrite Or fmShareExclusive);
Try
If SetFileTime(FileHandle, @FileTime, @FileTime, @FileTime) Then
Memo1.Lines.Append(SR.Name + ' -> success')
Else
Memo1.Lines.Append(SR.Name + ' -> ' + SysErrorMessage(GetLastError));
Finally
FileClose(FileHandle);
End;
Ließ sich gerade compilieren und funktioniert.