知识大全利用DLL实现通用密码验证框

Posted 2022-07-21 密码

篇首语：骏马是跑出来的，强兵是打出来的。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全利用DLL实现通用密码验证框相关的知识，希望对你有一定的参考价值。

利用DLL实现通用密码验证框 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在我们编制Delphi应用程序常常需要提供一个密码验证框对应用程序的使用者进行身份核对如果能有一个通用的密码验证框便能够为我们的工作节约不少的时间更能使我们编制的程序小而快以下的程序为你提供了这样的一个DLL文件

//文件名为CheckPasswordForm dpr; 编译此文件生成CheckPasswordForm dll library CheckPasswordForm;

uses XcqCheck in XcqCheck pas XcqForm;

exports CheckPassword name CheckPassword ;//dll入口

begin end

//文件名为XcqCheck pas unit XcqCheck;

interface

uses Windows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls Mask Menus;

type TXcqForm = class(TForm) XcqEdit: TMaskEdit;//密码输入框 OkBtn: TButton; procedure OkBtnClick(Sender: TObject); end;

var XcqForm: TXcqForm; Check: Boolean;//验证输入密码的正确性 function CheckPassword: Boolean;export; //本dll文件的关键实现

implementation

$R * DFM

procedure TXcqForm OkBtnClick(Sender: TObject); begin if XcqEdit Text = xcq then Check := True; Close; end;

function CheckPassword;export; begin Check := False; XcqForm := TXcqForm Create(Application); //创建密码输入框 XcqForm ShowModal;//显示密码输入框; 　　注意不能用XcqForm Show! Result := Check;//返回给调用本dll的应用程序判断 XcqForm Free;//释放本dll文件所占资源 end; end

　　在调用以上dll中CheckPassword函数的应用程序中只需加入以下语句在implementation 后 function CheckPassword: Boolean; external CheckPasswordForm dll name CheckPassword ;在需要进行密码验证的地方加入下面的条件语句就完全实现了密码验证的功能 if CheckPassword then begin //如XcqQuery Open; end;

cha138/Article/program/Delphi/201311/25037

知识大全 利用DLL实现通用密码验证框

知识大全利用DLL实现通用密码验证框