quarta-feira, 23 de setembro de 2009

Função para adquir hora e data de um arquivo

Function GetFileDate(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;

Nenhum comentário:

Postar um comentário