如何在动态链接库里设置窗体

zjjyhxy 2004-04-26 11:27:56

我在动态库里创建了二个窗体，可是
exports
GetPassword,SetPassWord;
时，出现了‘未经宣布’的错误，这是怎么回事啊？

...全文

42 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

sandzou 2004-04-28

打赏
举报

要注册一下下

zjjyhxy 2004-04-28

打赏
举报

http://www.cnread.net/cnread1/dnwl/cxsj/delphi/jcjc/index.html

我是按照以上第十章中的设置密码例子做的

zjjyhxy 2004-04-28

打赏
举报

library ProjectDll;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
SysUtils,
Classes,
SetPass in 'SetPass.pas' {setPassWordForm},
GetPass in 'GetPass.pas' {getPasswordform};

{$R *.res}
exports
GetPassword,SetPassWord;　

我的代码

zjjyhxy 2004-04-28

打赏
举报

如何注册啊，各位老兄，帮帮忙啊

XieWWW 2004-04-26

打赏
举报

问题要说清楚啥！

qingenerp 2004-04-26

打赏
举报

首先要注册dll

Cipherliu 2004-04-26

打赏
举报

没源码,怎么帮你看呀

zjjyhxy 2004-04-26

打赏
举报

在线等待，急!!

yckxzjj 2004-04-26

打赏
举报

library AutoCapture;

uses
SysUtils,
Forms,
Windows,
Messages,
Classes,
uAbout in 'uAbout.pas' {frmAbout};

{$R *.res}

var
DLLApp: TApplication;
DLLScr: TScreen;

function CreateDLLForm(App: TApplication; Scr: TScreen): TForm;
begin
Application := App;
Screen := Scr;
Application.CreateForm(TfrmAbout, frmAbout);
Result := frmAbout;
end;

procedure ExitDLL(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
begin
Application := DLLApp;
Screen := DLLScr;
end;
end;

exports
CreateDLLForm;

begin
DLLApp := Application;
DLLScr := Screen;
DLLProc := @ExitDLL;

end.

hsgzs 2004-04-26