Boa Tarde.
As vezes a gente se depara com alguns problemas como saber a data de criação de um arquivo ou .exe, por isso abaixo vou colocar uma função que faz este processo pra vcs. Claro que esta função é bem simples podendo ser melhorar a gosto pessoal de cada um, mas segue a que uso normalmente em questão simples.
function TForm1.DATADECRIACAO(Arq: string): TDateTime;
var ffd:TWin32FindData;
dft :DWORD;
lft :TFileTime;
h :THandle;
begin
h:= Windows.FindFirstFile(PChar(Arq), ffd);
try
if (INVALID_HANDLE_VALUE <> h) then begin
FileTimeToLocalFileTime(ffd.ftCreationTime,lft);
FileTimeToDosDateTime(lft, LongRec(dft).Hi, LongRec(dft).Lo);
Result := FileDateToDateTime(dft);
end
finally
Windows.FindClose(h);
end;
end;
Exemplo de uso da função.
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text := DateToStr(DATADECRIACAO('C:\DATA.txt'));
end;
Boa dica!! Funcionou...
ResponderExcluir