FindFirst TSearchRec setzen

[HolgerX]

Hmm..

Delphi-Quellcode:

  Handle := CreateFile(PChar(AFileName), GENERIC_WRITE, FILE_SHARE_READ,
                       nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);

  if Handle <> INVALID_HANDLE_VALUE then
  try
    SetFileTime(Handle, @CreationTime,@LastAccessTime,@LastWriteTime);
  finally
    CloseHandle(Handle);
  end;

statt FileOpen funktioniert für Dateien, wie auch Verzeichnisse...

(Getestet mit D6)