Evitar que mi app se instale en un equipo con mi app instalada (InnoSetup)

[[nlsgarcia]]

diegoferxmr,

Empezado por diegoferxmr

...no me funciona...if FileExists('{app}\Biable\Biable.xla') then...

Te comento:

1- La constante (app) no puede ser usada directamente, debe ser expandida por medio de la función ExpandConstant.

2- La constante (app) no puede ser usada antes de ser inicializada, en el Event Functions InitializeSetup, esta no ha sido inicializada.

3- Te sugiero colocar el archivo de control en otro directorio, por ejemplo:

Código Delphi [-]
// Realiza el Setup en función de un archivo de control
function InitializeSetup(): Boolean;
begin  
  if FileExists(ExpandConstant('{sys}') + '\' + 'FileControl.txt') then   
  begin 
    MsgBox('Setup Cancelado por Existencia de Archivo de Control', mbInformation, MB_OK);
    Result := False;
  end
  else
    Result := True;
end;

Buscara el archivo de control en X:\Windows\System32, donde X será el drive donde este instalado Windows.

Espero sea útil

Nelson.