 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
FNPIMENTEL
Novato
Registrado: Quinta-Feira, 9 de Agosto de 2007
Mensagens: 42
Localização: Vila Velha - ES
|
 Enviada: Qui Out 16, 2014 3:02 pm Assunto: Data e Hora de um arquivo |
 |
|
Boa Tarde desenvolvedores,
Estou precisando de uma rotina que consiga pegar a data e hora da criação de um arquivo para armazenar, vou explicar melhor.
O sistema deve gravar o nome, a data e hora de criação de alguns arquivos selecionados, com extensões diversas tipo JPG / BMP / MP3, WMA e etc..
Agradeço a ajuda.
Att. Fabio |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qui Out 16, 2014 4:51 pm Assunto: |
|
|
Boa tarde,
Experimente fazer um teste com a função abaixo:
| Código: | function ObterDataCriacaoArquivo(NomeArquivo: string): TDateTime;
var
SearchRec: TSearchRec;
LocalFileTime: TFileTime;
SystemTime: TSystemTime;
begin
Result := 0;
if SysUtils.FindFirst(NomeArquivo, faAnyFile, SearchRec) = 0 then
begin
FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, LocalFileTime);
FileTimeToSystemTime(LocalFileTime, SystemTime);
Result := SystemTimeToDateTime(SystemTime);
SysUtils.FindClose(SearchRec);
end;
end; |
Espero que ajude.
Editado pela última vez por imex em Dom Out 01, 2023 5:12 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
FNPIMENTEL
Novato
Registrado: Quinta-Feira, 9 de Agosto de 2007
Mensagens: 42
Localização: Vila Velha - ES
|
| Enviada: Sex Out 17, 2014 9:33 am Assunto: Resolvido |
|
|
Resolvido.... Muito Obrigado !
| imex escreveu: | Boa tarde,
Experimente fazer um teste com a função abaixo:
| Código: | function ObterDataCriacaoArquivo(NomeArquivo: string): TDateTime;
var
SearchRec: TSearchRec;
LocalFileTime: TFileTime;
SystemTime: TSystemTime;
begin
Result := 0;
if SysUtils.FindFirst(NomeArquivo, faAnyFile, SearchRec) = 0 then
begin
FileTimeToLocalFileTime(SearchRec.FindData.ftCreationTime, LocalFileTime);
FileTimeToSystemTime(LocalFileTime, SystemTime);
Result := SystemTimeToDateTime(SystemTime);
SysUtils.FindClose(SearchRec);
end;
end; |
Espero que ajude.
|
|
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
