Ver Mensaje Individual
  #1  
Antiguo 10-03-2008
cascarrabias cascarrabias is offline
Miembro
 
Registrado: abr 2006
Posts: 103
Reputación: 19
cascarrabias Va por buen camino
Cambiando la fecha de creacion de un archivo

Buen dia, he estado tratando de cambiar la fecha de creacion de un archivo con el siguiente procedimiento...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
A: Integer;
Fecha: LongInt;
SFecha: TDateTime;
begin

if not opendialog1.Execute then exit
  else
  begin
  A := FileOpen(OpenDialog1.FileName, fmOpenReadWrite or fmShareDenyWrite);
  SFecha := StrToDateTime('10/05/1983 0:0:0');
  Fecha := DateTimeToFileDate(SFecha);
  FileSetDate(A, Fecha);
  FileClose(A);
  end;

end;

El procedimiento cambia correctamente la fecha y hora pero la del atributo "modificado:", estoy tratando de que cambie pero de la fecha de "creacion", alguien sabe si hay alguna manera de cambiar esto?
Gracias por su tiempo.

Última edición por cascarrabias fecha: 10-03-2008 a las 06:52:42.
Responder Con Cita