pb11如何让程序只运行一次

bombshell · 2010-4-10 13:24:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？站点注册

×

防止用户一个程序打开多次！以前在pb9下的方法在pb11下不好用了，请问大家在pb11下怎么做？谢谢！

ehxz · 2010-4-10 16:58:29

open里最前面加上这个测试一下：
//打开日志文件
Int li_file_no
String ls_file = "c:\XXXXX_login.log" //根据自己修改
li_file_no = FileOpen(ls_file,LineMode!,Write!,LockReadWrite! ,Append!)
IF li_file_no = 0 THEN
// MessageBox("出错信息","不能打开系统出错日志文件!",Exc本人tion!)
halt close;
ELSE
IF FileWrite(li_file_no, "----~r~n启动时间:" + String(Today(),'yyyy-mm-dd') + " " + string(now()) ) < 0 THEN
halt close;
END IF
// FileClose(li_file_no) //关闭文件
END IF

账号		站点注册	自动登录	找回密码
密码			站点注册