No Delphi6 usávamos a função FileAge com a Seguinte Sintax:
FileAge(('\\servidor\sistema\programa.exe'), Data1);
Porem essa função foi Depreciada, segue abaixo o exemplo da nova aplicação para o Delphi2010:
Variáveis
DataServer, DataLocal: TDateTime;
DataServer := FileDateToDateTime(FileAge('\\servidor\sistema\programa.exe'));
DataLocal := FileDateToDateTime(FileAge('c:\sistema\programa.exe'));
IF (DataServer > DataLocal) THEN
BEGIN
Atualizar := True;
END;
Essa função é bastante utilizada para efetuar a atualização dos terminais.
