5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kith 2000-07-28
- 打赏
- 举报
这个例子够了吧?
PAS文件:
unit dll;
interface
uses
WinTypes, Classes, Controls, StdCtrls,WinProcs,Graphics,Forms,Buttons,SysUtils;
type
Tpasswordform = class(TForm)
Edit1: TEdit;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
function GetPassword(Password:string):Boolean;export;
implementation
uses Dialogs;
{$R *.DFM}
function GetPassword(Password:string):Boolean;
var
PasswordForm:TPasswordForm;
begin
Result:=False;
PasswordForm:=TPasswordForm.Create(Application);
try
with PasswordForm do
if ShowModal=mrOK then
if UpperCase(Edit1.Text)<> UpperCase(Password)then
MessageDlg('InvalidPassword',mtWarning,[mbOK],0)
else
Result:=True;
finally
PasswordForm.Free;
end;
end;
end.
DPR文件:
library dllform;
uses
SysUtils,
Classes,
dll in 'dll.pas' {passwordform};
exports getpassword;
{$R *.RES}
begin
end.
PAS文件:
unit dll;
interface
uses
WinTypes, Classes, Controls, StdCtrls,WinProcs,Graphics,Forms,Buttons,SysUtils;
type
Tpasswordform = class(TForm)
Edit1: TEdit;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
function GetPassword(Password:string):Boolean;export;
implementation
uses Dialogs;
{$R *.DFM}
function GetPassword(Password:string):Boolean;
var
PasswordForm:TPasswordForm;
begin
Result:=False;
PasswordForm:=TPasswordForm.Create(Application);
try
with PasswordForm do
if ShowModal=mrOK then
if UpperCase(Edit1.Text)<> UpperCase(Password)then
MessageDlg('InvalidPassword',mtWarning,[mbOK],0)
else
Result:=True;
finally
PasswordForm.Free;
end;
end;
end.
DPR文件:
library dllform;
uses
SysUtils,
Classes,
dll in 'dll.pas' {passwordform};
exports getpassword;
{$R *.RES}
begin
end.
icefireren 2000-07-28
- 打赏
- 举报
我的email addr icefire@ehousee.com
icefireren 2000-07-28
- 打赏
- 举报
wingsun能给我一个例子吗！
zsr 2000-07-27
- 打赏
- 举报
delphi的帮助里就有一个例子！
Wingsun 2000-07-27
- 打赏
- 举报
接着
truelove 2000-07-27
- 打赏
- 举报
要呀！
Wingsun 2000-07-27
- 打赏
- 举报
我有一个例子，要吗？
