Como obter a data e hora de um executável? – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Como obter a data e hora de um executável?

 

Esta dica foi criada a partir da discussão no grupo da comunidade
no skype. Ivan Cesar enviou um código semelhante.

Lembre-se de declarar System.SysUtils no uses.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var
  vData : TDateTime;
begin
  { Obtendo a data de um executável qualquer. }
  FileAge('C:\Sua Pasta\SeuExecutavel.exe', vData);
  ShowMessage(DateToStr(vData));
 
  { Obtendo a data do próprio exe }
  FileAge(ParamStr( 0 ), vdata);
  ShowMessage(DateTimeToStr(vData));
 
  { Outra forma seria assim }
  ShowMessage( DateTimeToStr(FileDateToDateTime(FileAge(ParamStr( 0 )))));
 
  { Mas neste último caso irá aparecer um Warning de deprecated }
end;

Dúvidas ou sugestões, deixe nos comentários do post.

Facebook Comments

Posts Relacionados

  • Giovani Da Cruz
  • 269 views
  • 0 comentários
  • 2 de dezembro de 2016

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo


© 2017 Infus Soluções em Tecnologia - Todos os Direitos Reservados