用注册表给应用程序加口令<br><br><br><br>设计流程为：先判断是否为第一次使用，如果为第一次使用，则要求设置新的用户名和口令，系统将用户名和口令保存起来；如果不是第一次使用，则要求输入用户名和口令才能登录。<br><br> 在Delphi开发环境中，新建一个工程Project1，在Project1中增加一个窗体Form1；在Form1上增加两个按纽，一个为确定，另一个为取消；再在Form1上增加两个Text框EditUser和EditPass，分别为用户名和口令输入框。定义窗体级全局变量RegF:TRegistry。并在interface的Uses中加上Registry。<br><br> 增加函数Wsz_IfFirst,判断是否是第一次使用；增加过程Wsz_SaveUse，保存用户名和口令；增加函数Wsz_CheckUser，判断用户名和口令是否正确。然后在Form1的FormShow事件和确定按纽事件中分别调用这三个函数和过程，达到设计要求。<br><br>//判断是否是第一次使用<br><br>function Wsz_IfFirst:Boolean;<br>var<br>sUser:string;<br>sPass:string;<br>begin<br>result := false;<br>RegF:=TRegistry.Create;<br>RegF.RootKey :=HKEY_LOCAL_MACHINE;<br>RegF.OpenKey("SOFTWARE/MicroSoft/whh726",TRUE);<br>sUser := RegF.ReadString("user");<br>sPass := RegF.ReadString("pass");<br>if ((length(sUser)$#@60;=0) and (length(sPass)$#@60;=0)) then<br>result := true ;<br>RegF.Free;<br>end;<br><br>//判断用户名和口令是否正确<br>function Wsz_CheckUser(MyUser:string;MyPass :string):Boolean;<br>var<br>sUser:string;<br>sPass:string;<br>begin<br>result:= false;<br>RegF:=TRegistry.Create;<br>RegF.RootKey :=HKEY_LOCAL_MACHINE;<br>RegF.OpenKey("SOFTWARE/MicroSoft/whh726",TRUE);<br>sUser := RegF.ReadString("user");<br>sPass := RegF.ReadString("pass");<br>if (sUser=MyUser) and (sPass=MyPass) then<br>result := true;<br>RegF ee;<br>end;<br><br>//保存用户名和口令<br>procedure Wsz_SaveUser(MyUser:string;MyPass :string);<br>begin<br>RegF:=TRegistry.Create;<br>RegF.RootKey :=HKEY_LOCAL_MACHINE;<br>RegF.OpenKey("SOFTWARE/MicroSoft/whh726",TRUE);<br>RegF.WriteString("user",MyUser);<br>RegF.WriteString("pass",MyPass);<br>RegF.Free;<br>end;<br><br>//取消按纽事件<br>procedure TWszLoginForm.BitBtnCloseClick(Sender: TObject);<br>begin<br>Close;<br>end;<br><br>//确定按纽事件<br>procedure TWszLoginForm.BitBtnYesClick(Sender: TObject);<br>var<br>suser:string;<br>spass:string;<br>begin<br>suser := trim(edituser.text);<br>spass := trim(editpass.text);<br>if (length(suser)$#@60;=0) or (length(spass)$#@60;=0) then<br>begin<br>Application.MessageBox("用户名和口令都必须输入！", "系统提示",<br>MB_OK + MB_ICONINFORMATION);<br>edituser.SetFocus ;<br>exit;<br>end;<br>if Wsz_IfFirst then<br>begin<br><br>//处理第一次登录的用户名和口令<br>if Application.MessageBox(<br>"您是第一次使用本软件，请记住您的用户名和口令，以便下次登录。现在进入系统吗？",<br>"系统提示",<br>MB_OKCANCEL + MB_ICONQUESTION) = IDOK then<br>begin<br><br>//保存<br>Wsz_SaveUser(suser,spass);<br>end<br>else<br>begin<br>edituser.SetFocus ;<br>exit;<br>end;<br>end else<br>begin<br>if not Wsz_CheckUser(suser,spass) then<br>begin<br>Application.MessageBox("对不起，用户名和口令输入不正确！",<br>"系统提示",<br>MB_OK + MB_ICONINFORMATION);<br>edituser.setfocus ;<br>exit;<br>end;<br>end;<br><br>//全局变量<br>GB_Wsz_User := suser;<br>GB_Wsz_PASS := spass;<br>Close;<br>end;<br><br>//窗体的Show事件<br>procedure TWszLoginForm.FormShow(Sender: TObject);<br>begin<br>if Wsz_IfFirst then<br>begin<br>Application.MessageBox(<br>"您是第一次使用本软件，您可以随便输入用户名和口令。",<br>"系统提示",<br>MB_OK + MB_ICONINFORMATION);<br>end;<br>end;<br>
]