关于发布后的问题
我做的系统发布出来点EXE文件时怎么屏幕要闪两下才开始运行啊?是不是主程序里面差什么语句啊,我看人家的系统点EXE文件屏幕不会动直接开始运行,求教!
_SCREEN.Visible = .F.
zoom windows screen max
*——系统环境初始化
CLOSE ALL
CLEAR ALL
*——系统环境设置
SET ESCAPE OFF && 禁止运行的程序在按ESC键被中断
SET TALK OFF && 关闭命令显示
SET SAFETY OFF && 覆盖时不要确认
SET STAT BAR OFF && 将状态栏关闭
SET SYSMENU OFF && 可关掉VFP系统菜单区域
SET SYSMENU TO && 关闭系统菜单
SET CENTURY ON && 显示四位年代
SET DATE ANSI && 指定日期表达式的显示格式为yy.mm.dd
*——避免多次运行程序
*——声明API函数“FindWindow”
DECLARE Integer FindWindow IN USER32.DLL String lpClassName,String lpWindowName
lpWindowName="人事管理系统"
IF .NOT. FindWindow(0,lpWindowName)==0 &&寻找窗口标题
=MESSAGEBOX("程序已经运行了",48,"人事管理系统")
QUIT
ENDIF
_Screen.Caption=lpWindowName
*——声明全局变量
PUBLIC cUser && 用来保存系统中的登录用户
PUBLIC bSAdmin && 用来标识登录的用户是否具有“系统管理”的权限
PUBLIC aname
PUBLIC sz
*——初始化全局变量
sz=""
cUser=""
bSAdmin=""
aname=""
*——调用登录表单
DO FORM 欢迎界面 && 显示登录表单
*——开始处理事件
READ EVENTS && 开始处理事件
*——退出系统
QUIT
这是主程序的代码