1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | // É necessário estar declarado SysUtils na seção uses. // Em versões mais recentes do Delphi, declare System.SysUtils. { 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; end; // Exemplo de uso com a data atual do sistema procedure TForm1.Button1Click(Sender: TObject); begin if DefineDataHoraArq('c:\teste.txt', Now) then ShowMessage('Data e Hora do arquivo definida com sucesso.') else ShowMessage('Não foi possível definir data e hora do arquivo.'); end; |
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
