#12003/8/16 11:39:14
--times是自定义变量,记录程序使用的次数 格式呀
--times.txt是外部记录文件
if FileType (RecordsLocation^"times.txt")=0 then
WriteExtFile(RecordsLocation^"times.txt","1")
MessageBox(WindowHandle,"您是第一次使用本软件","提醒" ,49)
else
times:=ReadExtFile(RecordsLocation^"times.txt")
if times>3 then
MessageBox(WindowHandle,"使用次数已满,您不能再使用本软件","提醒" ,49)
Quit()
else
MessageBox(WindowHandle,"您还可以使用本软件的次数是" ^3-times,"提醒" ,49)
WriteExtFile(RecordsLocation^"times.txt",times+1)
end if
end if
TextText