限制使用期限的代码？


 TRegistry *Reg = new TRegistry;
Integer flag; //全局变量
TDate first ,last,now;
try {
Reg->RootKey = HKEY_LOCAL_MACHINE;
//如果没有运行过写入注册表运行情况
if (!Reg->KeyExists("SYSTEM\\CurrentControlSet\\Services\\Winsock\\myset"))
{
Reg->OpenKey("SYSTEM\\CurrentControlSet\\Services\\Winsock\\myset",true) ;
//使用写到注册表
Reg->WriteDate("FirstAccess",Date());
Reg->WriteDate("LastAccess",Date());
Reg->WriteInteger("Flag",0); //过期标志0不过期
Reg->CloseKey();
//ShowMessage("保存成功11");
}
 
更多代码参见
http://www.nzw.net.cn/www/cdsoft.nsf/topics?openform&forum=5&start=1&count=20&page=1