当前位置：首页 » 软件开发

开发技术指南» 文章正文

    引言： 几乎每个应用系统都有相应的权限管理功能。

 

 

用注册表给应用程序加口令
　几乎每个应用系统都有相应的权限管理功能.对于大型多用户应用系统,一般是将权限设置保存在数据库中.但是对于小型的单用户应用系统与非数据库应用系统,就没有必要将权限设置保存在数据库中,但是用文件来保存既不方便又不安全,因为文件很可能被删除或毁坏.其实,灵活地利用windows注册表的特点,可以很方便地为应用系统设置用户名与口令,这种方法不但编程简便,而且安全性比较高.下面举例说明,该例程在windows98,delphi4环境下调试通过.

【程序编程相关:程序进程：cdplayer.exe】

【推荐阅读:程序进程：em_exec.exe】

　　设计流程为:先判断是否为第一次使用,如果为第一次使用,则要求设置新的用户名与口令,系统将用户名与口令保存起来;如果不是第一次使用,则要求输入用户名与口令才能登录. 【扩展信息:程序进程：acrobat.exe】

　　 在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("software\microsoft\whh726",true);

suser := regf.readstring("user");

spass := regf.readstring("pass");

if ((length(suser)$#@60;=0) and (length(spass)$#@60;=0)) then

result := true ;

regf.free;

end;

//判断用户名与口令是否正确

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：