Создан, изменён, открыт.

[TrapQ]

Ниже приведён пример как посмотреть и изменить дату и время последнего изменения файла, но как изменить дату создания и последнего открытия файла я так и не нашёл, даже не уверен что такие команды вообще существуют.

procedure TForm1.Button1Click(Sender: TObject);
var
  fileName    : string;
  fileDate    : Integer;
  newDateTime : TDateTime;

begin

  fileName := 'c:\ulibka.jpg';
  fileDate := FileAge(fileName);

  // Мы получали возраста файла?
  if fileDate > -1 then
  begin
    ShowMessage(fileName+' дата последнего изменения = '+
                DateTimeToStr(FileDateToDateTime(fileDate)));

    // Now change the last modified date
    newDateTime := StrToDateTime('15.02.2000 12:15:20');{date};
    FileSetDate(fileName, DateTimeToFileDate(newDateTime));
  end;

  // Мы обновили дату последнего изменения файла?
  fileDate := FileAge(fileName);
  if fileDate > -1 then
    ShowMessage(fileName+' дата последнего изменения = '+
                DateTimeToStr(FileDateToDateTime(fileDate)));
end;

[veniside]

http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

BOOL WINAPI SetFileTime(
  __in      HANDLE hFile,
  __in_opt  const FILETIME *lpCreationTime,
  __in_opt  const FILETIME *lpLastAccessTime,
  __in_opt  const FILETIME *lpLastWriteTime
);

[TrapQ]

Интересно, кроме меня ещё кто нибудь НЕ понял что написано сверху?

[TrapQ]

Протестировал, работает, изменяет все 3 параметра. Но на мой взгляд получилось довольно много кода, может можно всё это попроще записать.

procedure TForm1.Button2Click(Sender: TObject);
var
DateTime: TDateTime ;
Dir: string;
  H: Integer;
  F: TFileTime;
  S: TSystemTime;
begin
dir:= 'c:\ulibka.jpg';
DateTime := StrToDateTime('15.02.2000 12:15:20');
  H := CreateFile(PChar(Dir), $0100, 0, nil, OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS, 0);
  if H <> -1 then
  begin
    DateTimeToSystemTime(DateTime, S);
    SystemTimeToFileTime(S, F);
    LocalFileTimeToFileTime(F, F);
    SetFileTime(H, @F, @F, @F);
    CloseHandle(H);
  end
end;

[Пепел Феникса]

короче врятли.
если какое-то время не надо менять, то на соответствующем параметре пишите nil