[lduron]

Hola amigos!

Me podrían ayudar con este código?

El objetivo es que debe de cambiar la fecha de creación y la fecha de modificación de un archivo cualquiera.

Este código solo me cambia la fecha de modificación, pero la fecha de creación no... como lo puedo resolver?

Código Delphi [-]
function SetDateToFile(const FileName: string; Value: TDateTime): Boolean;
var
  hFile: THandle;
begin
  Result := False;
  try
    hFile := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
//    hFile := FileOpen(FileName, fmOpenReadWrite or fmShareDenyWrite);
    if (hFile > 0) then
      Result := (FileSetDate(hFile, DateTimeToFileDate(Value)) = 0)
  finally
    FileClose(hFile);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
SetDateToFile('C:\CambiarFecha\prueba.txt', StrToDateTime('06/07/2011 15:30:11'));
end;

Gracias de antemano.

Saludos!