diff --git a/Installer/Actualizacion/Actualización.iss b/Installer/Actualizacion/Actualización.iss deleted file mode 100644 index acbc51b9..00000000 --- a/Installer/Actualizacion/Actualización.iss +++ /dev/null @@ -1,99 +0,0 @@ -[Setup] -AppName=FactuGES -AppVerName=FactuGES 2.2.2 -AppPublisher=Rodax Software S.L. -AppPublisherURL=http://www.rodax-software.com -AppSupportURL=http://www.rodax-software.com -AppUpdatesURL=http://www.rodax-software.com -OutputBaseFilename=instalar -Compression=lzma -SolidCompression=yes -CreateAppDir=no -Uninstallable=no -DisableStartupPrompt=yes -DisableFinishedPage=yes - -[Languages] -Name: "sp"; MessagesFile: "compiler:languages\Spanish.isl" - -[Files] -Source: "files\*"; DestDir: {code:GetDir}; CopyMode: alwaysoverwrite; Flags: uninsneveruninstall overwritereadonly -;Source: "files\Informes\*"; DestDir: "{code:GetDir}\Informes\"; Flags: ignoreversion recursesubdirs createallsubdirs -;Source: "files\Financiacion\*"; DestDir: "{code:GetDir}\Financiacion\"; Flags: ignoreversion recursesubdirs createallsubdirs - -[Registry] -;Root: HKLM; Subkey: "Software\FactuGES\Update"; ValueType: string; ValueName: "edLocation_Text"; ValueData: "http://www.rodax-software.com/luisleon/update"; Flags: createvalueifdoesntexist - -[Code] -var - TipoActualizacion : String; - Ruta : String; - VerAnterior : String; - VerNueva : String; - -function GetDir(Param: String): String; -begin - Result := Ruta; -end; - -procedure HacerBackupVerAnterior; -var - RutaBack : String; - FindRec: TFindRec; -begin - RutaBack := Ruta + 'Otras versiones\' + VerAnterior + '\'; - - ForceDirectories(RutaBack); - ForceDirectories(RutaBack + 'Informes'); - - FileCopy(Ruta + 'FactuGES.exe', RutaBack + 'FactuGES.exe', FALSE); - if FindFirst(ExpandConstant(Ruta + 'Informes\*.*'), FindRec) then begin - try - repeat - // Don't count directories - if FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY = 0 then - FileCopy(Ruta + 'Informes\' + FindRec.Name, RutaBack + 'Informes\' + FindRec.Name, FALSE); - until not FindNext(FindRec); - finally - FindClose(FindRec); - end; - end; -end; - -{function NextButtonClick(CurPageID: Integer): Boolean; -begin - if CurPageID = 1 then - begin - if not RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\FactuGES\Update', - 'TipoActualizacion', TipoActualizacion) then - Abort; - - if not DirExists(Ruta) then - Abort; - - if TipoActualizacion = 'INTERNET' then - HacerBackupVerAnterior(); - end; - Result := True; -end;} - -function InitializeSetup(): Boolean; -var - p: HWND; -begin - // Comprobar que FactuGES no está en ejecución - p := FindWindowByWindowName('FactuGES'); - if p > 0 then - begin - MsgBox('Debe salir de FactuGES para poder instalar esta actualización',mbInformation, MB_OK); - Result := False - end - else begin - // Comprobar que la ruta del programa está en el registro - Result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\FactuGES', 'Ruta', Ruta); - end; -end; - - - - diff --git a/Installer/Actualizacion/Files/FactuGES.exe b/Installer/Actualizacion/Files/FactuGES.exe deleted file mode 100644 index 6dbab3ba..00000000 Binary files a/Installer/Actualizacion/Files/FactuGES.exe and /dev/null differ diff --git a/Installer/Actualizacion/Output/instalar.exe b/Installer/Actualizacion/Output/instalar.exe deleted file mode 100644 index 71bf12e8..00000000 Binary files a/Installer/Actualizacion/Output/instalar.exe and /dev/null differ