Como pegar a data de um arquivo mesmo estando em uso ?
Amigos Delphianos
Estou fazendo uma rotina de atualizacao de executaveis, e preciso comparar as datas do arq. origem e destino... porem não consigo compara-lo qdo o arquivo esta em uso...
Caso alguem saiba solucinar esse problema me dê um toque
Valew
Estou fazendo uma rotina de atualizacao de executaveis, e preciso comparar as datas do arq. origem e destino... porem não consigo compara-lo qdo o arquivo esta em uso...
Caso alguem saiba solucinar esse problema me dê um toque
Valew
Omar Cury
Curtidas 0
Respostas
Aroldo Zanela
06/05/2004
Colega,
Coloca um fragmento do código para avaliarmos melhor.
Coloca um fragmento do código para avaliarmos melhor.
GOSTEI 0
Omar Cury
06/05/2004
Ok Aroldo, aki vai...
function TfrmAtualiza.PegarData(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
Qdo o arquivo ORIGEM esta em uso, o FHandle recebe -1 e trava no Result.
Valew
function TfrmAtualiza.PegarData(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;
Qdo o arquivo ORIGEM esta em uso, o FHandle recebe -1 e trava no Result.
Valew
GOSTEI 0
Emerson Nascimento
06/05/2004
tente assim:
function TfrmAtualiza.PegarData(Arquivo: String): String;
begin
Result := DateTimeToStr(FileDateToDateTime(FileAge(Arquivo)));
end;
function TfrmAtualiza.PegarData(Arquivo: String): String;
begin
Result := DateTimeToStr(FileDateToDateTime(FileAge(Arquivo)));
end;
GOSTEI 0
Omar Cury
06/05/2004
Funcionou perfeitamente Emerson, além de ter ficado mais rápido :D ,
Obrigado pela dica e estamos ae !!
Obrigado pela dica e estamos ae !!
GOSTEI 0