procedure TfrmPass.OKClick(Sender: TObject); begin //根据Edit2的显示与否判断已有密码,进行验证 if edit2.Visible=false then begin if pass(edit1.text)=ValueStr then begin showmessage(′密码正确!′); end else begin showmessage(′密码不正确!无权操作!′); halt; end; end //无密码,设置新密码 else begin if edit1.text=edit2.text then begin TheReg := TRegistry.Create; TheReg.RootKey := HKEY—LOCAL—MACHINE; KeyName := ′SOFTWARE\Mypassword′; if TheReg.OpenKey(KeyName, True) then TheReg.WriteString(tempStr,pass(edit1.text)); TheReg.CloseKey; end else begin showmessage(′再次键入的密码不一致,请重输!′); |