自己慢慢研究吧。
这是试用次数为3次的程序设计例子,供参考
---------------------------------------
TIMES:=baReadRegNumber( "Keyname", "USED TIMES" , 0 , "HKEY_CURRENT_USER" )
if TIMES=0 then
baWriteRegNumber( "Keyname", "USED TIMES" , 1 , "HKEY_CURRENT_USER" )
else
TIMES:=TIMES+1
baWriteRegNumber( "Keyname", "USED TIMES" , TIMES , "HKEY_CURRENT_USER" )
end if
if TIMES>3 then Quit()
相关文件:
点这儿打开