请问这段代码怎么改成

獨傢汜忆

请问这段代码怎么改成如果gc_id=10之后就提示已经超限，确定后直接退出？
不要在到了gc_id=10后让其注册？

procedure TForm1.FormCreate(Sender: TObject);
    var
    re_id:integer;
    registerTemp : TRegistry;
    inputstr,get_id:string;
    dy,clickedok:boolean;
begin
  dy:=false;
  registerTemp := TRegistry.Create;
  with registerTemp do
    begin
    RootKey:=HKEY_LOCAL_MACHINE
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Mark',True) then

    begin
     if valueexists('gc_id') then
      begin
              re_id:=readinteger('gc_id');
              if (re_id<>0) and (re_id<>10) then

          begin
            re_id:=re_id+1;
            Writeintger('gc_id',re_id);
          end;
          if re_id=10 then
          dy:=True;
      end
     else
         Writeinteger('gc_id',9);
    if dy then
      begin
        Close;

        clickedok:=InputQuery('您使用的是注册软件,请输入注册码：',' ',inputstr);
        if clickedok then
        begin
            get_id:=intostr(57098758*2);
            if get_id=inputstr then
             begin
                Writeinteger('gc_id',0);
                CloseKey;
                Free;
             end
            else
            begin
                application.messagebox('注册码错误!请与作者联系!','警告框',mb_ok);
                CloseKey;
                Free;
                application.terminate;
            end;
        end
        else
        begin
            application.messagebox('请与管理员联系，使用注册软件!','警告框',mb_ok);
            CloseKey;
            Free;
            application.terminate;
        end;
      end;
     end;
   end;

comeheres

1. 
   
2. procedure TForm1.FormCreate(Sender: TObject);
   
3. var
   
4.   re_id: integer;
   
5.   registerTemp: TRegistry;
   
6.   inputstr, get_id: string;
   
7.   clickedok: boolean;
   
8.   procedure zhuce();
   
9.   begin
   
10.     re_id := re_id + 1;
    
11.     clickedok := InputQuery('软件未注册，还剩' + IntToStr(11 - re_id) + '次试用机会',
    
12.       '输入注册码：', inputstr);
    
13.     if clickedok then
    
14.     begin
    
15.       get_id := IntToStr(57098758*2);
    
16.       if get_id = inputstr then
    
17.       begin
    
18.         registerTemp.Writeinteger('gc_id', 0);
    
19.         MessageBox(Handle, '注册成功，欢迎使用本软件', '恭喜', mb_ok);
    
20.       end
    
21.       else
    
22.       begin
    
23.         MessageBox(Handle, '注册码错误!请与作者联系!', '提示', mb_ok + MB_ICONHAND);
    
24.         registerTemp.Writeinteger('gc_id', re_id);
    
25.       end;
    
26.     end
    
27.     else
    
28.     begin
    
29.       MessageBox(Handle, '请与作者联系，欢迎购买软件!', '提示', mb_ok + MB_ICONEXCLAMATION);
    
30.       registerTemp.Writeinteger('gc_id', re_id);
    
31.     end;
    
32.   end;
    
33. begin
    
34.   registerTemp := TRegistry.Create;
    
35.   with registerTemp do
    
36.   begin
    
37.     RootKey := HKEY_LOCAL_MACHINE;
    
38.     if OpenKey('Software\Microsoft\Windows\CurrentVersion\Mark', True) then
    
39.     begin
    
40.       if valueexists('gc_id') then
    
41.       begin
    
42.         re_id := readinteger('gc_id');
    
43.         if (re_id > 0) and (re_id < 10) then
    
44.         begin
    
45.           zhuce;
    
46.         end
    
47.         else if re_id >= 10 then
    
48.         begin
    
49.           MessageBox(Handle, '10次试用机会已用完，请联系作者购买!', '警告', mb_ok);
    
50.           CloseKey;
    
51.           Free;
    
52.           application.terminate;
    
53.         end;
    
54.       end
    
55.       else
    
56.       begin
    
57.         re_id := 0;
    
58.         zhuce;
    
59.       end;
    
60.     end;
    
61.     CloseKey;
    
62.     Free;
    
63.   end;
    
64. end;
    
65. 
    
66. 
    
67. 
    
68. 
    

复制代码

獨傢汜忆

comeheres 发表于 2014-3-2 13:06

                               
登录/注册后可看大图

非常感谢 能正常使用

comeheres

獨傢汜忆 发表于 2014-3-4 21:08

                               
登录/注册后可看大图

非常感谢 能正常使用

那就采纳吧

595835881

这东东太先进了，小生还不会，楼主可否让我看看你的Form啊，让我借鉴借鉴，学习学习，嘻嘻，谢谢了

王献8

{:1_1:}不管怎么样都支持下吧