Actualizar .exe

[dec]

Hola,

No puedes "machachar" el ejecutable mientras este esté en ejecución. Lo que se suele hacer es interponer un programa (aparte) que sea el encargado de descargar una versión actualizada de tu programa, y, cuando tu programa se cierre, sea este programa intermedio el que se encarge de borrar el antiguo ejecutable y sustituirlo por el actualizado.

Evidentemente lo expongo todo muy sintéticamente. Puedes buscar información en estos Foros sobre esta tarea de actualizar programas, puesto que se ha tratado en más de una ocasión de esto y se han dado varias soluciones al respecto.

[dec]

Hola,

Eco, eeeeeeecoooo...

[julian_ch]

Ok, gracias por responder tan pronto, voy a ponerme a buscar..........

Salu2!!!

[julian_ch]

Empezado por dec

Puedes buscar información en estos Foros sobre esta tarea de actualizar programas, puesto que se ha tratado en más de una ocasión de esto y se han dado varias soluciones al respecto.

He encontrado este hilo en el foro http://www.clubdelphi.com/foros/showthread.php?t=32550 , pero no consigo hacerlo funcionar sin servidor ftp o http, no hay nada parecido a esto pero que no necesite ningun tipo de servidor, sino un equipo que haga de servidor???


Gracias!!!!

[dec]

Hola,

Habría que hablarlo, pero, si un equipo hacer de servidor... ya tenemos servidor. ¿No?

[julian_ch]

Si lo miras asi....... jeje pero es servidor de aplicaciones, no es ni web ni ftp

[[seoane]]

Supongo que estamos hablando del programa "agent", si no recuerdo mal, que no lo hago En el código encontraras una función tal que así:

Código Delphi [-]
function Bajar(Url: string; Archivo: string): Boolean;

Esta función baja un archivo de un http o ftp y lo guarda en el disco duro, pues solo tienes que reemplazar esa función por la que necesites para obtener los archivos del "servidor de aplicaciones". No estoy seguro, pero si el programa esta colocado en una carpeta compartida se podría usar la instrucción Copyfile, corregirme si me equivoco, solo tendrías que tener en cuenta a la hora de hacer los archivos de inicio que donde antes era una url ahora seria la dirección del archivo en formato UNC

[julian_ch]

Sasto!! de ese programa estamos hablando, mañana lo pruebo y posteo resultados, de todas formas seoane, aprobechando que estas por aqui, jeje, me podrias decir en que parte del programa "agent" configuras esto:

Paso 6: Si no lo consigue, lo retrasa hasta el proximo reinicio del equipo (No hay prisa)
Paso 7: Esperar (15 minutos o lo que se programe)

porque a mi si que me interesaria que cerrara la aplicacion, la actualizara y la volviera a abrir. Gracias!!!

[[seoane]]

Vamos a destripar esta pieza de relojería

Código Delphi [-]
// Esta funcion nos indica si sobre un archivo hay alguna operacion pendiente
// de realizarse en el siguiente reinicio
function Pendiente(Archivo: string): Boolean;
var
  Buffer: PChar;
  Size: Integer;
  i: integer;
begin
  Result := FALSE;
  with TRegistry.Create do
  try
    Access := KEY_READ;
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('\SYSTEM\CurrentControlSet\Control\Session Manager', FALSE) then
    begin
      if ValueExists('PendingFileRenameOperations') then
      begin
        Size := GetDataSize('PendingFileRenameOperations');
        if Size > 0 then
        try
          GetMem(Buffer, Size);
          try
            Fillchar(Buffer^, Size, #0);
            ReadBinaryData('PendingFileRenameOperations', Buffer^, Size);
            for i := 0 to Size - 2 do
              if Buffer[i] = #0 then
                Buffer[i] := #13
              else
                Buffer[i] := upcase(Buffer[i]);
            if StrPos(Buffer, PChar(Uppercase(Archivo))) <> nil then
              Result := TRUE;
          finally
            FreeMem(Buffer);
          end;
        except
        end;
      end;
      CloseKey;
    end;
  finally
    Free;
  end;
end;

procedure Reemplazar(Viejo, Nuevo: string);
begin
  // Comprobamos si hay alguna operacion pendiente sobre los archivos
  if Pendiente(Viejo) or Pendiente(Nuevo) then
    Exit;
  // Si no hay archivo nuevo es que lo queremos borrar
  if Nuevo = '' then
  begin
    // Para borrarlo primero tiene que existir
    if FileExists(Viejo) then
      // Lo intentamos borrar por las buenas
      if not DeleteFile(Viejo) then
        // Si no podemos lo dejamos pendiente hasta reiniciar el equipo
        MoveFileEx(PChar(Viejo), nil, MOVEFILE_DELAY_UNTIL_REBOOT or
          MOVEFILE_REPLACE_EXISTING);
  end
  else
  begin
    // Intentamos reemplazar un archivo por otro, por las buenas
    if MoveFileEx(PChar(Nuevo), PChar(Viejo), MOVEFILE_REPLACE_EXISTING) then
    begin
      // Si lo conseguimos y el archivo se llama autorun.exe lo ejecutamos
      if Uppercase(ExtractFileName(Viejo)) = 'AUTORUN.EXE' then
        ShellExecute(0, nil, PChar(Viejo), nil, nil, SW_SHOW);
    end
    else
    begin
      // Si no conseguimos hacerlo por las buenas lo retrasamos hasta el siguiente reinicio
      MoveFileEx(PChar(Nuevo), PChar(Viejo), MOVEFILE_DELAY_UNTIL_REBOOT or
        MOVEFILE_REPLACE_EXISTING)
    end;
  end;
end;

En ningún momento intento cerrar la aplicación. Si es eso lo que quieres puedes intentar mostrar un aviso y esperar a que el usuario la cierre, cerrarla por las malas o si estas intentando actualizar tu propia aplicación hacer algo como esto (que ya puse en otro hilo):

Código Delphi [-]
procedure Actualizate(Nuevo: string);
var
  Actual: String;
  Buffer: array[0..MAX_PATH] of Char;
begin
  if GetShortPathName(PChar(ParamStr(0)),@Buffer, Sizeof(Buffer) -1) = 0 then
    Exit;
  Actual:= String(PChar(@Buffer));
  if GetShortPathName(PChar(Nuevo),@Buffer, Sizeof(Buffer) -1) = 0 then
    Exit;
  Nuevo:= String(PChar(@Buffer));
  with TStringList.Create do
  try
    Add(':BUCLE');
    Add('Del ' + Actual);
    Add('if %ERRORLEVEL% NEQ 0 goto BUCLE');
    Add('Copy ' + Nuevo + ' ' + Actual);
    Add('Start ' + Actual);
    SaveToFile(ChangeFileExt(ParamStr(0),'.bat'));    
    ShellExecute(0,nil,PChar(ChangeFileExt(ParamStr(0),'.bat')),nil,nil,SW_SHOW);
  finally
    Free;
  end;
end;

// Ejemplo de uso
Actualizate('c:\Windows\Temp\nuevo.exe');
Halt; // Lo apropiado seria usar close, o algo similar