只能通过注册表了找本注册表的书来看一看然后用fileIO写注册表具体的我也没研究过.

这是我以前的一个类似的东东，可以限制使用次数及使用期限，没有修改注册表，只是生成一个文件记录在内的，加密不算太好，用户找到该文件删除可以继续使用，不过你可以试试
=======================================================================
global use

on getTime
dateT=new(xtra "DateTimeXtra")
d=GetDay()
m=GetMonth()
y=GetYear()
return y&"-"&m&"-"&d
end

on startMovie
if use =0 then exit
else
use=0
end if


if getTime()>"2002-1-25" then
警告过期
exit
end if
set Next=1
set Filenum=1
set ALeadyInstall=0
set Filelist=[]
repeat while Next=1
pop=getNthFileNameinFolder("c:\", Filenum)
if pop<>"" then
if pop="command.log" then
set Next=0
set ALeadyInstall=1
getMyRecord "c:\command.log"
exit repeat
end if
Filenum=Filenum+1
else
exit repeat
end if
end repeat
if ALeadyInstall=0 then
InstallMyRecord
end if

end startMovie

on getMyRecord Thefilename
set LastTime=false
FileIoBj=new(xtra "fileio")
FileIoBj.openfile(Thefilename,0)
fileTxt=FileIoBj.readfile()
LookNum=getLookNum(fileTxt)
if LookNum<60 then
if value(LookNum)=void then LookNum=1
LookNum=value(LookNum)+1
FileIoBj.setposition(0)
FileIoBj.writestring(string(LookNum&"#"&LookNum))
FileIoBj.closefile()
FileIoBj=0
put "这是你的第"&value(LookNum)&"次使用本光盘！"----------------------
else
FileIoBj.closefile()
FileIoBj=0
警告过期
end if
set LastTime=true
end

on getLookNum(fileTxt)
set itemDelimiterTemp=the itemDelimiter
set the itemDelimiter="#"
set LookNumTemp=fileTxt.item[1]
set the itemDelimiter=itemDelimiterTemp
return LookNumTemp
end

on 警告过期
alert "本光盘已到期限！请与制作者联系付款事宜"

-- put "请注册"------------------------------
--这里你可以添加自己的代码！
halt
end

on InstallMyRecord
put "这是你的第1次使用本光盘！"----------------------
FileIoBj=new(xtra "fileio")
FileIoBj.createfile("c:\command.log")
FileIoBj.openfile("c:\command.log",0)
FileIoBj.setposition(0)
FileIoBj.writestring("1")
FileIoBj.closefile()
FileIoBj=0
end