Actualizaciones automáticas por Internet.

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@206 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
David Arranz 2008-01-02 20:35:27 +00:00
parent 16cd36cbf0
commit 62af6b6de9
7 changed files with 354 additions and 79 deletions

BIN
Build/Build.fb5lck Normal file

Binary file not shown.

View File

@ -407,7 +407,7 @@ source_path
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="NodeCollapsed" type="Boolean">True</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
@ -530,7 +530,7 @@ source_path
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="NodeCollapsed" type="Boolean">True</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
@ -569,7 +569,7 @@ source_path
<Property name="IsSpecial" type="WordBool">False</Property>
<Property name="KeepCFG" type="Boolean">False</Property>
<Property name="LinkProductVersionToFileVersion" type="Boolean">True</Property>
<Property name="Locale" type="Integer">3081</Property>
<Property name="Locale" type="Integer">3082</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MajorVersion" type="Integer">2</Property>
<Property MultiValue="0" name="ManifestFile" type="string"></Property>
@ -579,7 +579,7 @@ source_path
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Servidor\FactuGES_Server.dpr</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">3</Property>
<Property name="ReleaseVersion" type="Integer">9</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@ -592,17 +592,17 @@ source_path
<Property name="UseProjectSettings" type="TFBUseProjectSettings">[usPackages,usCompiler,usLinker,usVersionInfo]</Property>
<Property name="UsePropertySet" type="Boolean">False</Property>
<Property name="UseVersionFromDOF" type="Boolean">True</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=2.3.3.0
FileVersion=2.3.9.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=2.3.2.0
ProductName=FactuGES Server
ProductVersion=
Comments=
CompileDate=miércoles, 17 de octubre de 2007 14:01
CompileDate=
]]>
</Property>
<Property MultiValue="0" name="VersionInfoPropertySetName" type="string"></Property>
@ -20604,7 +20604,7 @@ Comments=
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property MultiValue="0" name="ProjectFile" type="WideString">%source_path%\Cliente\FactuGES.dpr</Property>
<Property name="RegenerateResource" type="WordBool">True</Property>
<Property name="ReleaseVersion" type="Integer">4</Property>
<Property name="ReleaseVersion" type="Integer">9</Property>
<Property MultiValue="0" name="ResourceCompilerOptions" type="string"></Property>
<Property MultiValue="0" name="ResourceCompilerPath" type="string"></Property>
<Property name="ResourceCompilerType" type="TFBDelphiResourceCompiler">rcBorland</Property>
@ -20619,13 +20619,13 @@ Comments=
<Property name="UseVersionFromDOF" type="Boolean">False</Property>
<Property MultiValue="1" name="VersionInfoKeys" type="WideString"><![CDATA[CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=2.3.4.0
FileVersion=2.3.9.0
InternalName=FactuGES
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES
ProductVersion=2.1.4
ProductName=
ProductVersion=
Comments=
]]>
</Property>
@ -20847,6 +20847,323 @@ Comments=
<Property name="XCopyMode" type="TFBXCopyMode">mdNormal</Property>
</Object>
</Object>
<Object Class="TGroupAction" XMLID="{788E9270-2058-4F73-A546-7486FA812A7B}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Generar actualización]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Generar actualización]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TDeleteFilesAction" XMLID="{7D26BBE2-283F-4139-9BD5-E8C09D3C4D80}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Borrar ficheros en el directorio Update]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="DeleteHidden" type="WordBool">True</Property>
<Property name="DeleteReadOnly" type="WordBool">True</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Borrar ficheros en el directorio Update]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfNoFile" type="WordBool">False</Property>
<Property MultiValue="0" name="FileSpec" type="string">%output_path%\Update\*.*</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
</Object>
<Object Class="TGroupAction" XMLID="{ADE0103F-8617-4F17-B806-3D100E95429C}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copiar ficheros del cliente]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Copiar ficheros del cliente]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TCopyFilesAction" XMLID="{0F159B49-BB25-479C-A20C-73FCA2E4997B}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copy File(s) [ %output_path%\Cliente\FactuGES.exe ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ClearAttributes" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfExists" type="WordBool">False</Property>
<Property name="FailIfZeroFiles" type="WordBool">True</Property>
<Property MultiValue="0" name="FileSpec" type="WideString">%output_path%\Cliente\FactuGES.exe</Property>
<Property name="Force" type="WordBool">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OverwriteReadOnly" type="WordBool">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="Recurse" type="WordBool">False</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="Target" type="WideString">%output_path%\Update\_factuges.exe</Property>
<Property name="TargetIsDir" type="WordBool">False</Property>
</Object>
<Object Class="TFBXCopyAction" XMLID="{1C12EC8F-2C07-4BA8-8775-5B17FB32B7E7}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copy File(s) [ %output_path%\Cliente\*.bpl ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ChangedAfterDate" type="TDate">39449</Property>
<Property name="CopyAttributes" type="Boolean">False</Property>
<Property name="CopyEmptyDirectories" type="Boolean">False</Property>
<Property name="CopyEncryptedIfNotSupportedInDest" type="Boolean">False</Property>
<Property name="CopyFileAuditSettings" type="Boolean">False</Property>
<Property name="CopyFilesChnagedAfter" type="Boolean">False</Property>
<Property name="CopyHiddenAndSys" type="Boolean">False</Property>
<Property name="CopyNetworkedFiles" type="Boolean">False</Property>
<Property name="CopyNewerFiles" type="Boolean">False</Property>
<Property name="CopyOwnershipAndACL" type="Boolean">False</Property>
<Property name="CopyUsingShortNames" type="Boolean">False</Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Copy File(s) [ %output_path%\Cliente\*.bpl ]]]>
</Property>
<Property MultiValue="0" name="Destination" type="string">%output_path%\Update\</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="EnableTimeout" type="Boolean">False</Property>
<Property name="ExcludeFiles" type="TStrings"><![CDATA[]]>
</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="ExtraCmdLineParamsAtEnd" type="string"></Property>
<Property MultiValue="0" name="ExtraCmdLineParamsAtStart" type="string"></Property>
<Property name="IgnoreErrors" type="Boolean">False</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property MultiValue="0" name="ImpersonateToken" type="string"></Property>
<Property name="ImpersonateUser" type="Boolean">False</Property>
<Property MultiValue="0" name="ImpersonateUserName" type="string"></Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OnlyArchiveFiles" type="Boolean">False</Property>
<Property name="OnlyFilesThatAlreadyExist" type="Boolean">False</Property>
<Property name="OverwriteReadOnly" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="ProcessorAffinity" type="Cardinal">0</Property>
<Property name="ProcessPriority" type="TFBExecuteThreadPriority">tpNormal</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="Source" type="string">%output_path%\Cliente\*.bpl</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="TerminateOnTimeout" type="Boolean">True</Property>
<Property name="TimeoutLength" type="Cardinal">2</Property>
<Property name="TurnOffArchiveBit" type="Boolean">False</Property>
<Property name="Verify" type="Boolean">False</Property>
<Property name="XCopyLogMode" type="TFBXCopyLogMode">logQuiet</Property>
<Property name="XCopyMode" type="TFBXCopyMode">mdNormal</Property>
</Object>
<Object Class="TCopyFilesAction" XMLID="{53A07361-84A5-4181-9061-A11DAB42A367}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Copy File(s) [ %updater_path%\UpdateClient\FactuGES.exe ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="ClearAttributes" type="WordBool">False</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfExists" type="WordBool">False</Property>
<Property name="FailIfZeroFiles" type="WordBool">True</Property>
<Property MultiValue="0" name="FileSpec" type="WideString">%updater_path%\UpdateClient\FactuGES.exe</Property>
<Property name="Force" type="WordBool">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="OverwriteReadOnly" type="WordBool">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="Recurse" type="WordBool">False</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property MultiValue="0" name="Target" type="WideString">%output_path%\Update\</Property>
<Property name="TargetIsDir" type="WordBool">True</Property>
</Object>
</Object>
<Object Class="TFBExtractFileVerInfoAction" XMLID="{18A1A7F9-AE18-4FEA-9D01-ADFC77249280}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Extract Version Info]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property MultiValue="0" name="FBVariable" type="string"></Property>
<Property MultiValue="0" name="FileName" type="string">%output_path%\Update\_factuges.exe</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="VerInfoList" type="TStrings"><![CDATA[FileVersion=factuges_version
]]>
</Property>
</Object>
<Object Class="TFBZipAction" XMLID="{575E6485-1071-4A45-9216-6BF02367C7F1}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Create Zip File [ %output_path%\Update\FactuGES_%factuges_version%.zip ]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property name="AddDirEntriesOnRecurse" type="WordBool">False</Property>
<Property name="Dispose" type="WordBool">True</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property MultiValue="0" name="EncryptedPassword" type="WideString"></Property>
<Property name="ExcludeList" type="TStrings"><![CDATA[]]>
</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="FailIfFileMissing" type="WordBool">True</Property>
<Property name="FailIfZeroFiles" type="WordBool">False</Property>
<Property name="FilesList" type="TStrings"><![CDATA[*.exe
*.bpl
]]>
</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property name="LogFiles" type="WordBool">True</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NoCompressList" type="TStrings"><![CDATA[]]>
</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property MultiValue="0" name="OutputFileName" type="WideString">%output_path%\Update\FactuGES_%factuges_version%.zip</Property>
<Property name="PackLevel" type="Integer">6</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="Recurse" type="WordBool">True</Property>
<Property name="RelativePaths" type="WordBool">True</Property>
<Property name="ResetArchiveBitOnZip" type="WordBool">False</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property MultiValue="0" name="RootDir" type="WideString">%output_path%\Update</Property>
<Property name="SkipIfArchiveBitNotSet" type="WordBool">False</Property>
<Property name="Store83Names" type="WordBool">False</Property>
<Property name="StorePaths" type="WordBool">True</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="ZipAction" type="TZipAction">zaUpdate</Property>
<Property MultiValue="0" name="ZipComment" type="WideString"></Property>
</Object>
<Object Class="TGroupAction" XMLID="{7A508BE7-D844-4776-BEFB-0605C5A7D755}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Generar XML de actualización]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="1" name="Description" type="string"><![CDATA[Generar XML de actualización]]>
</Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Object Class="TFBXMLDefineAction" XMLID="{071DF58A-065C-4048-A20B-B5D8C1DDCCB9}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Define XML Document [UpdateConfig.xml]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="DefaultNamespaceIdentifier" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ExpandDocumentNodeNamespace" type="Boolean">False</Property>
<Property MultiValue="0" name="ExtraNamespaces" type="string"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property name="ParserVer" type="TParserVer">HighestMSXML</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="ResolveExternal" type="Boolean">True</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="ValidateOnParse" type="Boolean">True</Property>
<Property name="XMLDocSource" type="TXMLDocSource">sxText</Property>
<Property MultiValue="0" name="XMLDocumentName" type="string">UpdateConfig.xml</Property>
<Property name="XMLObject" type="IFBXMLObject" XMLID="{A8EDD176-A28E-4925-AF48-5FF632A84AB0}"/>
<Property MultiValue="0" name="XMLSourceFile" type="string"></Property>
<Property MultiValue="1" name="XMLText" type="string"><![CDATA[&lt;UpdatePlus&gt;
&lt;FileList&gt;
&lt;Directory Name="&amp;lt;ApplicationDir&amp;gt;"&gt;
&lt;File Unzip="True" Name="FactuGES_%factuges_version%.zip" Action="Unzip" /&gt;
&lt;/Directory&gt;
&lt;/FileList&gt;
&lt;CompanyEmail&gt;info@rodax-software.com&lt;/CompanyEmail&gt;
&lt;Restart&gt;User defined&lt;/Restart&gt;
&lt;UpdateType&gt;Normal&lt;/UpdateType&gt;
&lt;UpdateVersion&gt;%factuges_version%&lt;/UpdateVersion&gt;
&lt;/UpdatePlus&gt;
]]>
</Property>
<Object Class="TFBXMLObject" XMLID="{A8EDD176-A28E-4925-AF48-5FF632A84AB0}"><Property MultiValue="0" name="Name" type="string">UpdateConfig.xml</Property>
</Object>
</Object>
<Object Class="TFBXMLSaveDocumentAction" XMLID="{7C760B0A-8D49-4304-AB88-7EAEBE213A94}"><Property MultiValue="0" name="ActionComment" type="string"></Property>
<Property MultiValue="1" name="ActionDescription" type="string"><![CDATA[Save XML Document [UpdateConfig.xml]]]>
</Property>
<Property name="ActionTextColor" type="Cardinal">0</Property>
<Property MultiValue="0" name="ActionTypeID" type="string"></Property>
<Property MultiValue="0" name="DefaultNamespaceIdentifier" type="string"></Property>
<Property name="Enabled" type="WordBool">True</Property>
<Property name="ExpandActionLogTitle" type="Boolean">True</Property>
<Property name="ExpandDocumentNodeNamespace" type="Boolean">False</Property>
<Property MultiValue="0" name="ExtraNamespaces" type="string"></Property>
<Property name="IgnoreFailure" type="WordBool">False</Property>
<Property name="IsAction" type="Boolean">True</Property>
<Property name="IsBreakPoint" type="WordBool">False</Property>
<Property MultiValue="0" name="LogToVariable" type="string"></Property>
<Property name="MaxRetryAttempts" type="Cardinal">0</Property>
<Property name="NodeCollapsed" type="Boolean">False</Property>
<Property MultiValue="0" name="OutputFile" type="string">%output_path%\Update\UpdateConfig.xml</Property>
<Property name="OverwriteOutputFile" type="Boolean">True</Property>
<Property name="ParserVer" type="TParserVer">HighestMSXML</Property>
<Property name="PauseInterval" type="Cardinal">0</Property>
<Property name="ResolveExternal" type="Boolean">True</Property>
<Property name="RetryPauseInterval" type="Cardinal">1000</Property>
<Property name="SuppressStatusMessages" type="Boolean">False</Property>
<Property name="ValidateOnParse" type="Boolean">True</Property>
<Property MultiValue="0" name="XMLDocumentObject" type="string">UpdateConfig.xml</Property>
</Object>
</Object>
</Object>
</Object>
<Object Class="TFBActionListParametersCollection" XMLID="{DA68752A-A92E-47B7-A8DE-1B3E46E8D956}"/>
</Object>
@ -20957,6 +21274,30 @@ Comments=
<Property MultiValue="0" name="Name" type="string">_aux_path</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{60A4903C-9E3B-46F6-836E-6ECACE4E8A40}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string">%project_path%\Installer\Actualizacion</Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">updater_path</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{ECC8FF5E-E8D6-406C-9FC6-6DD569D6C360}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">exe_version</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
<Object Class="TFBVariable" XMLID="{DCE9CB79-CD61-4D01-A418-69233212FFDA}"><Property MultiValue="0" name="Comment" type="string"></Property>
<Property MultiValue="0" name="DefaultValue" type="string"></Property>
<Property name="IsMacro" type="Boolean">False</Property>
<Property name="IsPersistent" type="Boolean">False</Property>
<Property name="MakeEnv" type="Boolean">False</Property>
<Property MultiValue="0" name="Name" type="string">factuges_version</Property>
<Property name="VariableType" type="TFBVariableType">vtProject</Property>
</Object>
</Object>
</Object>
</VSXML>

View File

@ -1,66 +0,0 @@
[Setup]
AppName=FactuGES
AppVerName=FactuGES 2.3.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]
const
WM_CLOSE = $0010;
var
TipoActualizacion : String;
Ruta : String;
VerAnterior : String;
VerNueva : String;
function GetDir(Param: String): String;
begin
Result := Ruta;
end;
function InitializeSetup(): Boolean;
var
p: HWND;
begin
// Comprobar que FactuGES no está en ejecución
p := FindWindowByWindowName('FactuGES');
// p := FindWindowByClassName('FactuGES');
while p > 0 do
begin
// 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;

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.