pb11如何让程序只运行一次
防止用户一个程序打开多次！以前在pb9下的方法在pb11下不好用了，请问大家在pb11下怎么做？谢谢！ 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
页:
[1]