Actualizar .exe

[[seoane]]

Empezado por julian_ch

Muy bueno el programa, lo he probado y con algunas modificaciones es justo lo k necesitaba, no se si te pasara a ti tb seoane pero solo me funciona bien cuando lo ejecuto desde delphi, si es con el ejecutable no funciona, de todas formas gracias!!!!

¿que es lo que no te funciona? A mi todos mis programas me funcionan dentro y fuera del IDE.

[julian_ch]

Le doy al agent.exe y no hace nada, es como si kedara bloqueado, tengo que ir al administrador de tareas de windows y terminarlo a lo bruto.

[[seoane]]

Ese es el comportamiento normal. El programa esta pensado para que busque actualizaciones cada 15 minutos, en un bucle que nunca termina. Si no es ese el comportamiento que buscas, elimina el bucle y punto, entonces se ejecutara y terminara.

Es decir, donde tienes esto:

Código Delphi [-]
procedure Loop;
var
  Mutex: Cardinal;
begin
  Mutex:= CreateMutex(nil,TRUE,'{C1DEF361-AA1F-4F8F-A35E-29FA672A7E7A}');
  if  GetLastError = 0 then
  begin
    Environment:= TEnvironment.Create;
    try
      StartHook;
      Terminar:= FALSE;
      Espera:= StrToIntDef(ParamStr(1),900000);
      repeat // <--Elimina esto
        Sleep(Espera); // <--Elimina esto
        Vamos;
      until Terminar or (Espera < 5000); // <--Elimina esto
    finally
      StopHook;
      Environment.Free;
    end;
    CloseHandle(Mutex);
  end;
end;

Y puede que tengas que hacer algún ajuste mas. Dentro del IDE te funcionaba porque en los parámetros de ejecución esta puesto 0, es decir le indico un tiempo de espera 0 lo que equivale a que no queremos el bucle.

Hay que revisar el código antes de decir que algo no funciona.

[julian_ch]

Gracias, tienes razon, revisandolo me acabo de dar cuenta, jeje, ya "funciona" como yo quiero