功能很简单:就是主程序调用这个dll里的函数,出现一密码框,在上面输入密码后(输入时密码要用*代替),按确定将密码值传给主程序。
哪位好心人帮忙贴一下代码,最好不要有其它的功能的代码,这样我比较容易看懂。
哪位好心人帮忙贴一下代码,最好不要有其它的功能的代码,这样我比较容易看懂。
解决方案 »
- delphi里的stringlist可以用什么别的代替不?
- HOOK安装失败,请高手来指点!
- 看看吧
- 关于fastreport报表动态生成SQL问题
- 怎么样获取远程文件的大小?
- 一个小程序,送分500,说了算数!
- 大家帮忙看看,如何打印一条直线
- dwginfo问题(zoomwindow放大的的区域不正确)急
- 如何将图片插入word文件中?请给详细代码。谢谢!已经问了几次了呀,没人正面回答。
- 为什么tnmftp.nlist或tnmftp.list列的是服务器端的目录和文件的属性
- fastreprt问题:如何把外部(form)里的变量显示出来,而不时在fastreport内部定义变量!
- 基础问题,望指教
编译此文件生成CheckPasswordForm.dlllibrary CheckPasswordForm;uses
XcqCheck in 'XcqCheck.pas' {XcqForm};exports
CheckPassword name 'CheckPassword';//dll入口beginend.
//文件名为XcqCheck.pas
unit XcqCheck;interfaceuses
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;