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
Código:
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