david
dfb8ec0208
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/branches/D2007-DA5@21 0c75b7a4-871f-7646-8a2f-f78d34cc349f
100 lines
2.8 KiB
Plaintext
100 lines
2.8 KiB
Plaintext
[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<73> en ejecuci<63>n
|
||
p := FindWindowByWindowName('FactuGES');
|
||
if p > 0 then
|
||
begin
|
||
MsgBox('Debe salir de FactuGES para poder instalar esta actualizaci<63>n',mbInformation, MB_OK);
|
||
Result := False
|
||
end
|
||
else begin
|
||
// Comprobar que la ruta del programa est<73> en el registro
|
||
Result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\FactuGES', 'Ruta', Ruta);
|
||
end;
|
||
end;
|
||
|
||
|
||
|
||
|