论坛 › Delphi交流 › 请帮忙改一下代码

獨傢汜忆 发表于 2014-3-2 01:03:19

请帮忙改一下代码

请问这段代码怎么改成如果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;

罂粟 发表于 2014-3-2 02:32:39

都没鱼币悬赏，不告诉你:$

罂粟 发表于 2014-3-2 02:34:23

大于10，直接提示退出就好了嘛……少于10时，每次打开提示注册

查看完整版本: 请帮忙改一下代码