1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

function FileTimeToDateTime(AFileTime : TFileTime): TDateTime;
var
  SystemTime: TSystemTime;
  LocalTime : TFileTime;
begin
  FileTimeToLocalFileTime(AFileTime,LocalTime);
  FileTimeToSystemTime(LocalTime,SystemTime);
  result := SystemTimeToDateTime(SystemTime);
end;

procedure TForm1.ReadFileTime(AFileName: string);
var
  SR: TSearchRec;
  tmpDateTime : TDateTime;
begin
  Edit1.Text := AFileName;
  if FindFirst(AFileName,faAnyFile,SR) = 0 then begin

    tmpDateTime := FileTimeToDateTime(SR.FindData.ftCreationTime);
    DateTimePicker_DateCreation.Date := DateOf(tmpDateTime);
    DateTimePicker_TimeCreation.Time := TimeOf(tmpDateTime);

    tmpDateTime := FileTimeToDateTime(SR.FindData.ftLastAccessTime);
    DateTimePicker_DateAccess.Date := DateOf(tmpDateTime);
    DateTimePicker_TimeAccess.Time := TimeOf(tmpDateTime);

    tmpDateTime := FileTimeToDateTime(SR.FindData.ftLastWriteTime);
    DateTimePicker_DateChange.Date := DateOf(tmpDateTime);
    DateTimePicker_TimeChange.Time := TimeOf(tmpDateTime);
  end;
  FindClose(SR);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:

const
  // 24 * 60 * 60 * 1000 * 1000 * 10;
  CentiMicroSecondsPerDay = 864000000000.0;
  FileTimeStart = -109205;  // 1601-01-01T00:00:00

function DateTimeToLocalFileTime(Value: TDateTime): TFileTime;
begin
  Int64(Result) := Round((Value - FileTimeStart) *
                   CentiMicroSecondsPerDay);
end;

function LocalFileTimeToDateTime(Value: TFileTime): TDateTime;
begin
  Result := (Int64(Value) / CentiMicroSecondsPerDay) + FileTimeStart;
end;



type
  // indicates the file time to set, used by SetFileTimesHelper
  // and SetDirTimesHelper
  TFileTimes = (ftLastAccess, ftLastWrite, ftCreation);

function SetFileTimesHelper(const FileName: String;
                            const DateTime: TDateTime;
                            Times: TFileTimes;
                            IsUTCBased: Boolean): Boolean;
var
  Handle: THandle;
  FileTime: TFileTime;
  LocalFileTime: TFileTime;
begin
  Result := False;

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

  if Handle <> INVALID_HANDLE_VALUE then
  try
    LocalFileTime := DateTimeToLocalFileTime(DateTime);
    if IsUTCBased then begin
      FileTime := LocalFileTime;
      Result := True;
    end else begin
      Result := LocalFileTimeToFileTime(LocalFileTime, FileTime);
    end;
    if Result then begin
      case Times of
        ftLastAccess: Result := SetFileTime(Handle, nil, @FileTime, nil);
        ftLastWrite:  Result := SetFileTime(Handle, nil, nil, @FileTime);
        ftCreation:   Result := SetFileTime(Handle, @FileTime, nil, nil);
      else
        Result := False;
      end;
    end;
  finally
    CloseHandle(Handle);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  tmpDateTime : TDateTime;
begin
  tmpDateTime := DateOf(DateTimePicker_DateAccess.Date) + TimeOf(DateTimePicker_TimeAccess.Time);
  SetFileTimesHelper(Edit1.Text,tmpDateTime,ftLastAccess, false);

  tmpDateTime := DateOf(DateTimePicker_DateChange.Date) + TimeOf(DateTimePicker_TimeChange.Time);
  SetFileTimesHelper(Edit1.Text,tmpDateTime,ftLastWrite, false);

  tmpDateTime := DateOf(DateTimePicker_DateCreation.Date) + TimeOf(DateTimePicker_TimeCreation.Time);
  SetFileTimesHelper(Edit1.Text,tmpDateTime,ftCreation, false);
end;					

1:
2:
3:

  Handle := CreateFile(PChar(FileName), GENERIC_WRITE, FILE_SHARE_READ,
                       nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  if Handle <> INVALID_HANDLE_VALUE then