Fórum Atributos de arquivo, alterar #324799

[b:7be759e318]Olha. Achei a dica abaixo no forum do Delphi. Não testei.[/b:7be759e318]


{ Esta função altera a data e hora de um arquivo. Se obter sucesso retorna true, caso contrário retorna false. }

function DefineDataHoraArq(NomeArq: string; DataHora: TDateTime): boolean;
var
F: integer;
begin
Result := false;
F := FileOpen(NomeArq, fmOpenWrite or fmShareDenyNone);
try
if F > 0 then
Result := FileSetDate(F, DateTimeToFileDate(DataHora)) = 0;
finally
FileClose(F);
end;