[lgarcia]

Hola:

Una vez en el foro se estuvo hablando acerca de la actualizacion de archivos para trabajar siempre con la ultima actualizacion de un exe, yo consegui realizar eso con el siguiente codigo

var
  fecha1, fecha2: Double;
function GetFileDate(TheFileName: string): Double;
var
 FHandle: integer;
begin
 FHandle := FileOpen(TheFileName, 0);
 try
   Result := Int(FileDateToDateTime(FileGetDate(FHandle)));
 finally
   FileClose(FHandle);
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  ShortDateFormat:= 'MM/dd/yyyy';
  fecha1:= GetFileDate('C:\Archivos de programa\Sadval\sadvalcajero.exe');
  fecha2:= GetFileDate('\\192.168.10.40\sadval$\sadvalcajero.exe');
  if fecha2 > fecha1 then
  CopyFile(Pchar('\\192.168.10.40\sadval$\sadvalcajero.exe'), Pchar('C:\Archivos de programa\Sadval\sadvalcajero.exe'), False);
  Close;
  WinExec(PChar('C:\Archivos de programa\Sadval\sadvalcajero.exe'),SW_SHOWNORMAL);
end;

En algunas maquinas me pincha pero en otras me saca el siguiente error
Invalid argument to date encode

Creo que debe ser por el formato de fechas entre una PC y otra pero he observado que en una maquina que probe y dio resultado esta configurada distinta a la PC mia de trabajo, alguien podria ayudarme con esto

Saludos
Luis Garcia