• 网站地图|收藏本站|数学学习|学习方法|电脑学习|教学大全|生活常识|句子大全|管理资料下载|范文大全
  • 运用注册表给系统应用程序加口令

    时间:10-14 10:27:50来源:http://www.laixuea.com 电脑技巧阅读:8933

    概要:Application.MessageBox("用户名和口令都必须输入!", "系统提示", MB_OK + MB_ICONINFORMATION); edituser.SetFocus ; exit; end; if Wsz_IfFirst then begin file://处理第一次登录的用户名和口令 if Application.MessageBox( "您是第一次使用本软件,请记住您的用户名和口令, 以便下次登录。现在进入系统吗?", "系统提示", MB_OKCANCEL + MB_ICONQUESTION) = IDOK then begin file://保存 Wsz_SaveUser(suser,spass); end else begin edituser.SetFocus ; exit; end; end else begin if not Wsz_CheckUser(suser,spass) then

    运用注册表给系统应用程序加口令,标签:电脑技巧大全,电脑技术,http://www.laixuea.com

      Application.MessageBox("用户名和口令都必须输入!",

        "系统提示",

       MB_OK + MB_ICONINFORMATION);

       edituser.SetFocus ;

      exit;

       end;

       if Wsz_IfFirst then

       begin

      file://处理第一次登录的用户名和口令

      if Application.MessageBox(

       "您是第一次使用本软件,请记住您的用户名和口令,

       以便下次登录。现在进入系统吗?",

       "系统提示",

       MB_OKCANCEL + MB_ICONQUESTION) = IDOK then

       begin

      file://保存

      Wsz_SaveUser(suser,spass);

       end

      else

       begin

       edituser.SetFocus ;

       exit;

       end;

      end else

       begin

      if not Wsz_CheckUser(suser,spass) then

      begin

      Application.MessageBox

       ("对不起,用户名和口令输入不正确!", "系统提示",

      MB_OK + MB_ICONINFORMATION);

       edituser.setfocus ;

      exit;

      end;

       end;

       file://全局变量

       GB_Wsz_User := suser;

       GB_Wsz_PASS := spass;

       Close;

       end;

       file://窗体的Show事件

      procedure TWszLoginForm.FormShow(Sender: TObject);

       begin

      if Wsz_IfFirst then

       begin

      Application.MessageBox(

      "您是第一次使用本软件,您可以随便输入用户名和口令。",

      "系统提示",

      MB_OK + MB_ICONINFORMATION);

      end;

        end;

    上一页  [1] [2] 


    Tag:电脑技巧电脑技巧大全,电脑技术电脑学习 - 电脑技巧