过期罐头电脑论坛-win7、win10雨人系统下载

过期罐头电脑论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1646|回复: 0
收起左侧

运用注册表给系统应用程序加口令

[复制链接]
发表于 2011-3-3 20:03:51 | 显示全部楼层 |阅读模式
发贴请勿包含网站外链(直接下载地址和网盘除外),屡犯者将封禁ID、网址永久屏蔽,www.gqgtpc.com感谢支持!
简直 每个应用系统都有相应的权限管理功能。对于大型多用户应用系统,一般是将权限设置保存在数据库中。但是对于小型的单用户应用系统和非数据库应用系统,就没有必要将权限设置保存在数据库中,但是用文件来保存既不方.便 又不安全,由于 文件很可能被删除或破坏 。其实,灵活天时 用Windows注册表的特性 ,可以很方.便 地为应用系统设置用户名和口令,这种方法不但编程烦琐 ,而且安全性比较高。下面举例说明,该例程在Windows98,Delphi4环境下调试通过。  
设计流程为:先判别 是否为第一次使用,假如 为第一次使用,则要求设置新的用户名和口令,系统将用户名和口令保存起来;假如 不是第一次使用,则要求输入用户名和口令才能登录。  
在Delphi开发环境中,新建一个工程Project1,在Project1中增加一个窗体Form1;在Form1上增加两个按纽,一个为确定,另一个为取消;再在Form1上增加两个Text框EditUser和EditPass,分别为用户名和口令输入框。定义窗体级全局变量RegF:TRegistry。并在interface的Uses中加上Registry。
增加函数Wsz_IfFirst,判别 是否是第一次使用;增加过程Wsz_SaveUse,保存用户名和口令;增加函数Wsz_CheckUser,判别 用户名和口令是否正确。然后在Form1的FormShow事情 和确定按纽事情 中分别调用这三个函数和过程,到达 设计要求。  
//判别 是否是第一次使用
function Wsz_IfFirst:Boolean;
var
sUser:string;
sPass:string;
begin
result := false;
RegF:=TRegistry.Create;
RegF.RootKey :=HKEY_LOCAL_MACHINE;
RegF.OpenKey("SOFTWAREMicroSoftwhh726",TRUE);
sUser := RegF.ReadString("user");
sPass := RegF.ReadString("pass");

<font face=Verdana>if ((length(sUser)

楼主热帖
[Windows7] 使用Windows 7构建更好的测量系统
[Windows7] 解决Windows 7网络延迟问题
[系统应用经验技巧] Win7炫特技:用Aero Flip 3D查看文件
[Windows7] 解决Windows7 找不到该项目的错误问题
[Windows10] 喜迎Win8客户预览版 窥探Win8八点变化
[Windows7] 快速设置Win7文件权限的软件
[Windows7] Windows7 如何实现定时关机?
[Windows7] Windows7 卸载和删除一些不用 要的服务
[Windows7] 巧用Windows 7打造属于自己. 的家庭影院
[Windows7] Win7下连接蓝牙耳机的方法

您需要登录后才可以回帖 登录 | 注册

本版积分规则

win7 64位旗舰版下载|win10系统下载|win7旗舰版|联系我们|网站地图|过期罐头电脑论坛

GMT+8, 2017-12-17 06:12 , Processed in 0.126481 second(s), 24 queries .

官方免责声明:本站内容来自网友和互联网.若侵犯到您的版权.请致信联系,我们将第一时间删除相关内容!

Powered by Discuz!

过期罐头电脑论坛

win7旗舰版_windows10

快速回复 返回顶部 返回列表