行业应用

开发平台：

VFP

WJJB.PRG：源码内容

							*********************************************
*       程序名: wjjb.PRG                    *
*       功能:   文件解包                    *
*       设计:   黄朝生                      *
*********************************************
if !file('jqfaxindatawj.arj')
Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+'
defi wind jqwin1 from 6,20 to 11,60
acti wind jqwin1
@2,2 say "没有找到文件包,接收数据之后才能解包! "
wait''
deac wind jqwin1
retu
endif
! arj x indatawj.arj  indata -y
***************
*=defiwind("WT",0,0,24,79,"colo &Color titl ''")
clea
*=defiwind("WT",2,2,18,75,"colo &Color titl '        JQFAX 通讯窗口   ;
           黄朝生制作          JQ软件创作室'")
acti wind jqfaxwin
***************
retu

						