1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.Button1Click(Sender: TObject);
var
  fh : THandle;
  fn : string;
  fCreationTime : FileTime;
  fLastAccessTime : FileTime;
  fLastWriteTime : FileTime;
  TempDateTime : TDateTime;
begin
  fn := 'c:\test.txt';
  fh := FileOpen(fn, fmOpenRead);
   GetFileTime(fh, @fCreationTime, @fLastAccessTime, @fLastWriteTime);
//   TempDateTime := FileTimeToDateTime(fLastWriteTime);

//  // Hier manipulieren der Wert ist beim Debuggen auch gleich dem anderen Datum

   fLastAccessTime := fLastWriteTime; //bis hier hin in Ordnung

   SetFileTime(fh, @fCreationTime, @fLastAccessTime, @fLastWriteTime);

   //Das Datum letzter Zugriff der Datei wird aber nicht abgeändert!

  CloseHandle(fh);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

        static void touchFile(FileSystemInfo fsi)
        {
            Console.WriteLine("Touching: {0}", fsi.FullName);

            // Update the CreationTime, LastWriteTime and LastAccessTime.
            try
            {
                fsi.CreationTime = fsi.LastWriteTime = fsi.LastAccessTime =
                    DateTime.Now;
            }
            catch (Exception e)
            {
                Console.WriteLine("Error: {0}", e.Message);
            }
        }