изменить дату создания файла

[pavellyba]

Как в Delphi изменить дату создания файла????

[ZuBy]

FileDateTime или что то вроде этого

[pavellyba]

написал процедуру изменения файла, но все успешно не работает(
подскажите что не правильно:

procedure SetFileT(adr:string;d1,d2,d3: da);
var
DateTime: TDateTime ;
  H: Integer;
  F1,f2,f3: TFileTime;
  S: TSystemTime;
begin
  DateTime := StrToDateTime(d1[0]+'.'+d1[1]+'.'+d1[2]+' '+d1[3]+':'+d1[4]+':'+d1[5]);
    DateTimeToSystemTime(DateTime, S);
    SystemTimeToFileTime(S, F1);
    LocalFileTimeToFileTime(F1, F1);
    DateTime := StrToDateTime(d2[0]+'.'+d2[1]+'.'+d2[2]+' '+d2[3]+':'+d2[4]+':'+d2[5]);
    DateTimeToSystemTime(DateTime, S);
    SystemTimeToFileTime(S, F2);
    LocalFileTimeToFileTime(F2, F2);
      DateTime := StrToDateTime(d3[0]+'.'+d3[1]+'.'+d3[2]+' '+d3[3]+':'+d3[4]+':'+d3[5]);
    DateTimeToSystemTime(DateTime, S);
    SystemTimeToFileTime(S, F3);
    LocalFileTimeToFileTime(F3, F3);

  H := CreateFile(PChar(adr), $0100, 0, nil, 0,
    FILE_FLAG_BACKUP_SEMANTICS, 0);
  if H <> -1 then
  begin
    SetFileTime(H, @F1, @F2, @F3);
    CloseHandle(H);
  end;
end;

[ZuBy]

для DelphiXE7

uses IOUtils;
TFile.SetCreationTime();

[Stilet]

Во-первых: Читай MSDN. У тебя лишние телодвижения.
Достаточно

procedure SetFileT(adr:string;d1,d2,d3: da);
var
DateTime: TDateTime ;
  H: Integer;
  F1,f2,f3: TFileTime;
  S: TSystemTime;
begin
  DateTime := StrToDateTime(d1[0]+'.'+d1[1]+'.'+d1[2]+' '+d1[3]+':'+d1[4]+':'+d1[5]);
    DateTimeToSystemTime(DateTime, S);
    SystemTimeToFileTime(S, F1);
    LocalFileTimeToFileTime(F1, F1);

  H := CreateFile(PChar(adr), $0100, 0, nil, 0,
    FILE_FLAG_BACKUP_SEMANTICS, 0);
  if H <> -1 then
  begin
    SetFileTime(H, @F1, nil, nil);
    CloseHandle(H);
  end;
end;

Во-вторых что значит "успешно не работает"?

[pavellyba]

Дата файла не меняется, остается дата создания и изменения исходной
Я копирую файл при помощи функции CopyFile.
Пытаюсь изменить дату при помощи моей функции.
В итогов файле смотрю свойства файла, они остаются не измены.
Время создания и редактирования, это время копирования файла, а не то что нужно

[Аватар]

CreateFile HANDLE точно возвращает или -1?

[pavellyba]

Возвращает! Что делать?! Может проблема в том, что я пишу в Лазарусе?

Дописал условие, что если -1, то выдавать сообщение.

[lomastr_]

Что делать?!

ошибки читать, и выводы делать

[Stilet]

Что делать?

Анализировать что SetFileTime() вернет. Потом получить код ошибки с помошью GetLAstError() и текст с помошью SysErrorMessage() или сразу текст с помошью RaiseLastOsError()