Ver Mensaje Individual
  #7  
Antiguo 17-12-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
diegoferxmr,

Cita:
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.
Responder Con Cita