Função que altera a data e a hora de um arquivo especificado em Delphi
function AlterFileTime(const filename: String; const stamp: TDateTime): Boolean;
var
FileHandle: INTEGER;
begin
if not fileExists(filename) then
begin
Result := False;
end
else
begin
try
FileHandle := FileOpen(filename, fmOpenWrite or fmShareDenyNone);
if FileHandle > 0 then
begin
FileSetDate(FileHandle, DateTimeToFileDate(stamp));
FileClose (FileHandle);
Result := True;
end;
except
Result := False;
end;
end;
end;
