1 respuesta en este tema

[sir.dev.a.lot]

[TRUCOS DELPHI] Cambiar la fecha de un Archivo.

delphi

function SetFileDateTime(FileName : String; NewDateTime : TDateTime):
	Boolean;
	var
	  FileHandle: Integer;
	  FileTime: TFileTime;
	  LFT: TFileTime;
	  LST: TSystemTime;
	begin
	  Result := False;
	  Try
	    DecodeDate(NewDateTime, LST.wYear, LST.wMonth, LST.wDay);
	    DecodeTime(NewDateTime, LST.wHour, LST.wMinute,
	LST.wSecond,LST.wMilliSeconds);
	    IF SystemTimeToFileTime(LST, LFT) Then
	    begin
	      IF LocalFileTimeToFileTime(LFT, FileTime) Then
	      begin
	        FileHandle := FileOpen(FileName, fmOpenReadWrite or
	                               fmShareExclusive);
	        IF SetFileTime(FileHandle, NIL, NIL, @FileTime) Then
	          Result := True;
	        end;
	      end;
	   Finally
	     FileClose(FileHandle);
	   end;
	end;

Ejemplo de Uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  if OpenDialog1.Execute then
	  begin
	    if SetFileDateTime(OpenDialog1.Filename,now) then
	    begin
	      ShowMessage('Cambio de fecha realizado !');
	    end;
	  end;
	end;

Saludos!

[escafandra]

Quizás sea más interesante cambiar la fecha de creación del fichero.

delphi

function SetFileCreationDateTime(FileName : String; NewDateTime : TDateTime):	Boolean;
var
  FileHandle: Integer;
  FileTime: TFileTime;
  LFT: TFileTime;
  LST: TSystemTime;
begin
  Result := false;
  Try
    DecodeDate(NewDateTime, LST.wYear, LST.wMonth, LST.wDay);
    DecodeTime(NewDateTime, LST.wHour, LST.wMinute, LST.wSecond,LST.wMilliSeconds);
    if SystemTimeToFileTime(LST, LFT) Then
    begin
      if LocalFileTimeToFileTime(LFT, FileTime) then
      begin
        FileHandle := FileOpen(FileName, fmOpenReadWrite or fmShareExclusive);
    	Result:= SetFileTime(FileHandle, @FileTime, @FileTime, @FileTime);
      end;
    end;
  finally
    FileClose(FileHandle);
  end;
end;

Saludos.