Como descobrir o local de um arquivo, e sua data de criação?
07/02/2006
0
Estou querendo fazer um atualizador de executavel do meu sistema, para isso preciso varrer todos os drives da máquina do cliente e procurar meu Executável, e guardar em uma variavel, pode ser mais de um local porém sempre um executável. Preciso também ao descobrir o local, verificar a data de criação do arquivo, para saber se tenho ou não que atualizar-lo
Eis minha pergunta: [b:2244338191]Como localizo um executável na máquina, e como descobrir sua data de criaçao?[/b:2244338191]
Desde já agradeço
[]s
Titanius
Posts
07/02/2006
Massuda
Com relação a usar a data de criação do arquivo... se seu programa for baixado da internet ou qualquer outro meio eletrônico que não seja físico (disquete, cd, etc), a data de criação do arquivo será a data em que o usuário baixou o programa no HD. Ao invés de usar essa data, use o número de versão mantido no seu programa (Project|Options|Version Info).
07/02/2006
Martins
Uma observação importante [b:95e4265474]Massuda[/b:95e4265474], pois sempre verifico q os arquivos q baixo da Internet tem sua data de criação modificada para a data do Download, é como se o SO interpretasse q naquela data ele estivesse sendo criado no disco. Procurar pelo número da versão é interessante, ele vai sempre procurar um número maior do q o da atual versão é isso?
ex:
versão: 1.0.2.1
versão: 1.0.2.2
07/02/2006
Massuda
07/02/2006
Paullsoftware
{Retorna a data e a hora de um arquivo}
function ChecaDataExe(Arquivo: String): String;
var
FHandle: integer;
begin
if not fileexists(Arquivo) then
begin
Result := ´Arquivo não encontrado!´;
end
else
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
end;07/02/2006
Massuda
Clique aqui para fazer login e interagir na Comunidade :)
