In der
JCL (Jedi Code Library) gibt es in der
Unit JclFileUtils die Funktionen
Delphi-Quellcode:
function SetDirLastWrite(const DirName: string; const DateTime: TDateTime): Boolean;
function SetDirLastAccess(const DirName: string; const DateTime: TDateTime): Boolean;
function SetDirCreation(const DirName: string; const DateTime: TDateTime): Boolean;
Du kannst nun versuchen, die Funktionen herauszuextrahieren oder die JCL ingesamt verwenden.