用Foxpro设计动态安装程序
01-27 15:38:33软件技巧
浏览次数:185次
标签:软件技巧大全,http://www.duosi8.com
用Foxpro设计动态安装程序,
本程序运行时,屏幕中央的“安装窗口”中有“正在安装:'和“系统安装到:”两项提示,分别以文件名和百分比显示目前正在安装的内容和已经安装的比例。同时,还有一条不断延长的光带,动态显示安装的进度。
安装前,先建一个安装文件数据库(install.dbf),该库只需一个字段(wjm,字符型,12个字节),然后一条记录一个文件名,把需要安装的文件输入库中。安装时,程序便按库中记录把提到的文件逐一安装。屏幕显示“正在安装:”的即是wjm字段的内容;而安装比例是当前记录与总记录数之比(即:bfs=dqjl/zjls)。动态光带长度是以安装比例乘以光带总长(程序中是50)获得,并以显示该长度的空格来实现。即:
xs=(dqj1/zjls)*50
@ x,y say space(xs)
本程序如由批处理文件install.bat先拷贝到c:盘再运行,速度将更快,不过,这需在程序最后重新将它删除。下面是笔者为自己的“唐诗园”设计的安装程序。[程序清单]
set talk off
set start off
clea
set color to 7+/5,7+/5
define window win51 from 9,12 to 14,60 doub shad color 7+/5
acti window win51
@ 1,2,3,45 box
@ 0,5 say ' TSY安装选择'
DATAD=" "
@ 2,4 say ' 请输入源盘所在驱动器(A/B):'get DATAD pict "!"
read
@ 0,5 say ' TSY安装目标盘选择'
d=" "
@ 2,4 say ' 请输入目标盘(C/D/E/F/G):' get d pict "!"
READ
CLEAR WINDOWS
IF UPPE(D)="C" &&&判断目的盘,并建立和进入子目录。(E/F/G:已省略)
!C:
!MD TSY
!CD TSY
ENDIF
IF UPPE(D)="D"
!D:
!MD TSY
!CD TSY
ENDIF
DISK=DATAD
TD=d
define window win51 from 10, 10 to 16,70;
title '“唐诗园”系统安装程序'doub shad color 7+/5
acti window win51
@ 2,3,4,55 box
@ 1,5 say '正安装: 系统安装进行到:'
use &DISK:install &&&打开安装文件数据库:install.dbf
do while !eof() &&&进入循环,将库中文件一一拷贝
zjls=recc() &&&总记录数
dqj1=recn() &&&当前记录
bfs=dqj1/zjls
bfb1=round(bfs,2)*100 &&&计算安装比例
xs=ROUND((bfs*50),2) &&&计算显示光带的长度
wjml=upper(wjm)
@ 1,15 say wjml &&&显示正在安装的文件
copy file &DISK:&wjml to &td:&wjml
set colo to 6/7*
@ 3,5 say space(xs) &&&显示光带
set color to +7/5,5/5
@ 1,50 say ltrim(str(bfb1,3)+"%") &&显示安装比例
skip
enddo
@ 3,4 say "[唐诗园]系统安装完毕,任意键结束。 "
wait "
clear windows
! CD\
! DEL C:INSTALL.* &&&删除由批处理拷贝到c:盘的安装文件
quit
本程序运行时,屏幕中央的“安装窗口”中有“正在安装:'和“系统安装到:”两项提示,分别以文件名和百分比显示目前正在安装的内容和已经安装的比例。同时,还有一条不断延长的光带,动态显示安装的进度。
安装前,先建一个安装文件数据库(install.dbf),该库只需一个字段(wjm,字符型,12个字节),然后一条记录一个文件名,把需要安装的文件输入库中。安装时,程序便按库中记录把提到的文件逐一安装。屏幕显示“正在安装:”的即是wjm字段的内容;而安装比例是当前记录与总记录数之比(即:bfs=dqjl/zjls)。动态光带长度是以安装比例乘以光带总长(程序中是50)获得,并以显示该长度的空格来实现。即:
xs=(dqj1/zjls)*50
@ x,y say space(xs)
本程序如由批处理文件install.bat先拷贝到c:盘再运行,速度将更快,不过,这需在程序最后重新将它删除。下面是笔者为自己的“唐诗园”设计的安装程序。[程序清单]
set talk off
set start off
clea
set color to 7+/5,7+/5
define window win51 from 9,12 to 14,60 doub shad color 7+/5
acti window win51
@ 1,2,3,45 box
@ 0,5 say ' TSY安装选择'
DATAD=" "
@ 2,4 say ' 请输入源盘所在驱动器(A/B):'get DATAD pict "!"
read
@ 0,5 say ' TSY安装目标盘选择'
d=" "
@ 2,4 say ' 请输入目标盘(C/D/E/F/G):' get d pict "!"
READ
CLEAR WINDOWS
IF UPPE(D)="C" &&&判断目的盘,并建立和进入子目录。(E/F/G:已省略)
!C:
!MD TSY
!CD TSY
ENDIF
IF UPPE(D)="D"
!D:
!MD TSY
!CD TSY
ENDIF
DISK=DATAD
TD=d
define window win51 from 10, 10 to 16,70;
title '“唐诗园”系统安装程序'doub shad color 7+/5
acti window win51
@ 2,3,4,55 box
@ 1,5 say '正安装: 系统安装进行到:'
use &DISK:install &&&打开安装文件数据库:install.dbf
do while !eof() &&&进入循环,将库中文件一一拷贝
zjls=recc() &&&总记录数
dqj1=recn() &&&当前记录
bfs=dqj1/zjls
bfb1=round(bfs,2)*100 &&&计算安装比例
xs=ROUND((bfs*50),2) &&&计算显示光带的长度
wjml=upper(wjm)
@ 1,15 say wjml &&&显示正在安装的文件
copy file &DISK:&wjml to &td:&wjml
set colo to 6/7*
@ 3,5 say space(xs) &&&显示光带
set color to +7/5,5/5
@ 1,50 say ltrim(str(bfb1,3)+"%") &&显示安装比例
skip
enddo
@ 3,4 say "[唐诗园]系统安装完毕,任意键结束。 "
wait "
clear windows
! CD\
! DEL C:INSTALL.* &&&删除由批处理拷贝到c:盘的安装文件
quit
,用Foxpro设计动态安装程序
- ·上一篇:已经安装好了IIS,应该如何建立一个Web站点?
- ·下一篇:为什么你不赚钱 个人网站失败的十大主因!
《用Foxpro设计动态安装程序》相关文章
热门推荐
- · 居民身份证信息快速查询与检验
- · 从视频中提取声音
- · 恢复误格式化文件的方法
- · 播放电影时字幕速度缓慢
- · 用Foxpro设计动态安装程序
- · 硬盘DOS引导分区内容损坏修复一例
- · 用PROTEL 3.16绘图的几点体会
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件