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

过期罐头电脑论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
雨人系统 过期罐头 视频编辑软件 电脑维修 win7系统下载 win10系统下载
查看: 1556|回复: 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] 解决Windows7开启AHCI后蓝屏的方法
[系统应用经验技巧] 运用注册表给系统应用程序加口令
[Windows7] win7一键退出当前程序
[Windows7] 快速设置Win7文件权限的软件
[Windows7] 电脑维护适用 工具箱(2012/01/03更新)
[Windows7] 解决win7无法上网的系统问题
[系统应用经验技巧] IE提速详细教程 IE8其实并不慢
[Windows7] 怎么 解决Windows7 更新错误8024402F
[Windows10] Windows8 三大版本功能差异 对比发布
[Windows7] Windows7 如何实现定时关机?

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

本版积分规则

win7 64位旗舰版下载|win10系统下载|win7旗舰版|联系我们|网站地图|

GMT+8, 2016-12-10 01:21 , Processed in 0.252173 second(s), 29 queries .

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

Powered by Discuz!

过期罐头电脑论坛

win7旗舰版_windows10

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