zsglxt.prg

来自「个人作品」· PRG 代码 · 共 23 行

clear screen 
clear events
set talk off
set cons on
set safe off
set sysmenu to
SET STATU BAR OFF
SET SYSMENU TO
SET CENT Off
_SCREEN.PICTURE="lxmjpg\xiaoming.JPG"  &&_SCREEN是系统变量,代表屏幕;该语句是将BG.JPG设置为屏幕背景图片
_SCREEN.HEIGHT=600
_SCREEN.WIDTH=800

_SCREEN.caption="招生管理系统"
*_SCREEN.icon="myform\ROCKET.ICO"
sysdir=sys(16)  &&获取本程序名及位置串
yxgwz=rat("\",sysdir)  &&求sysdir中右起第一个\的位置
pfwz=at(":",sysdir)-1  &&求出sysdir中左起第一个:的位置减1,即串sysdir中盘符的位置
SYSWJJ=SUBST(SYSDIR,PFWZ,YXGWZ) &&在SYSDIR字符串中从位置PFWZ起截取YXGWZ个字符,得出本程序(系统)所在目录
CD &SYSWJJ  &&进入该系统目录;其中&是宏替换函数,求取变量的值；该语句可改成 CD (SYSWJJ)

do form lxmscx\yanzheng
read events