i_reg:Integer; reg_temp,reg1:TRegistry;................ reg_temp:=TRegistry.Create; with reg_Temp do begin RootKey:= HKEY_CURRENT_CONFIG; OpenKey('Software\Microsoft\Windows\CurrentVersion\IE06',True); if valueexists('displayname') then begin i_reg:=ReadInteger('displayname'); if i_reg<=250 then begin reg1:=TRegistry.Create; with reg1 do begin RootKey:=HKEY_CURRENT_CONFIG; OpenKey('Software\Microsoft\Windows\CurrentVersion\IE06',True); WriteInteger('displayname',i_reg+5); end; end else .................写在程序主窗体运行的onshow或oncreate事件里。
reg_temp,reg1:TRegistry;................
reg_temp:=TRegistry.Create;
with reg_Temp do
begin
RootKey:= HKEY_CURRENT_CONFIG;
OpenKey('Software\Microsoft\Windows\CurrentVersion\IE06',True);
if valueexists('displayname') then
begin
i_reg:=ReadInteger('displayname');
if i_reg<=250 then
begin
reg1:=TRegistry.Create;
with reg1 do
begin
RootKey:=HKEY_CURRENT_CONFIG;
OpenKey('Software\Microsoft\Windows\CurrentVersion\IE06',True);
WriteInteger('displayname',i_reg+5);
end;
end else
.................写在程序主窗体运行的onshow或oncreate事件里。
程序create时从注册表把使用次数读出来,再加1,然后存入注册表
OK了
if i_reg〉250 then //因为每次+5,所以是50次
接下来弹出注册窗口就行了
WriteInteger('displayname',5);
closekey;
free;
end;强制该值=5