Versión con etiquetas para clientes

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@163 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Installer/Actualizacion/Actualización.iss

@@ -25,6 +25,9 @@ Source: "files\*"; DestDir: {code:GetDir}; CopyMode: alwaysoverwrite; Flags:  un
 ;Root: HKLM; Subkey: "Software\FactuGES\Update"; ValueType: string; ValueName: "edLocation_Text"; ValueData: "http://www.rodax-software.com/luisleon/update"; Flags: createvalueifdoesntexist
 
 [Code]
+const
+  WM_CLOSE = $0010;
+  
 var
   TipoActualizacion : String;
   Ruta : String;
@@ -36,62 +39,26 @@ 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
+//  p := FindWindowByClassName('FactuGES');
+  while p > 0 do
   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);
+//    MsgBox('Debe salir de FactuGES para poder instalar esta actualización',mbInformation, MB_OK);
+//    Result := False
+    SendMessage(p,WM_CLOSE,0,0);
+    p := FindWindowByWindowName('FactuGES');
   end;
+    Result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\FactuGES', 'Ruta', Ruta);
+//  end
+//  else begin
+    // Comprobar que la ruta del programa está en el registro
+//    Result := RegQueryStringValue(HKEY_LOCAL_MACHINE, 'Software\FactuGES', 'Ruta', Ruta);
+//  end;
 end;