用其控件来做升级配置文件要启动Delphi环境做,而且以后要改动又要从头来过,不太方便。
现抽取其一段代码,写成一个独立应用程序,具有保存功能,以后就方便好多。
源码下载
保存的文件以xml方式存储,结构如下:
1
<?
xml version='1.0'
?>
2
<
Project
>
3
<
MSG
>
Version 2.0 contains following features:
4
* Feature 1
5
* Feature 2
6
* Feature 3
7
and so on
</
MSG
>
8
<
Method
>
self
</
Method
>
9
<
VersionControl
value
='date'
>
10
<
Value
>
12/20/2007
</
Value
>
11
</
VersionControl
>
12
<
URLS
>
13
<
URL
>
http://www.appcontrols.com/download/exe/AutoUpgraderPro2.exe
</
URL
>
14
<
URL
>
http://www.appcontrols.com/download/exe/readme.txt
</
URL
>
15
</
URLS
>
16
</
Project
>
17
主界面:
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/None.gif)
4
![](/Images/OutliningIndicators/None.gif)
5
![](/Images/OutliningIndicators/None.gif)
6
![](/Images/OutliningIndicators/None.gif)
7
![](/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/dot.gif)
8
![](/Images/OutliningIndicators/None.gif)
9
![](/Images/OutliningIndicators/None.gif)
10
![](/Images/OutliningIndicators/None.gif)
11
![](/Images/OutliningIndicators/None.gif)
12
![](/Images/OutliningIndicators/None.gif)
13
![](/Images/OutliningIndicators/None.gif)
14
![](/Images/OutliningIndicators/None.gif)
15
![](/Images/OutliningIndicators/None.gif)
16
![](/Images/OutliningIndicators/None.gif)
17
![](/Images/OutliningIndicators/None.gif)
![](https://images.cnblogs.com/cnblogs_com/jssy/others/others/ConfigUpdateIni.jpg)