各位先進大家好~
小弟這個問題己經困擾我一個多月了 ><"
害小弟睡覺都會做惡夢

小弟的問題是
以下的程式碼使用靜態式呼叫DLL的方式是可以正常開啟的

但是小弟想要更進一步的進行改成動態式呼叫DLL的方式
可是卻一直報錯><"

希望各位先進能指點小弟...
在此先感謝...!

以下為MAINFORM的程式

[code delphi]

//這是靜態呼叫DLL的方式
function GetChildForm8(MDIMainForm: TForm; AClassName: string; var f: TForm): Boolean; external 'DLL_acct7.dll';

//如今我改成我要的動態呼叫DLL的方式如下↓
TGetChildForm8 = function (MDIMainForm: TForm; AClassName: string; var f: TForm): Boolean; stdcall;

//當我按下BUTTON就把DLL的FORM\開出來
procedure TMainForm.Button1Click(Sender: TObject);
var
GetChildForm8 : TGetChildForm8;
ADllHandle : THandle;
ProcAddr : FarProc;
f : TForm;
begin

ADllHandle := LoadLibrary('DLL_acct7.dll');

try
if ADllHandle<>0 then
ProcAddr := GetProcAddress(ADllHandle, 'GetChildForm8');
if ProcAddr<>nil then
begin
GetChildForm8(Self,'acct7',f);
end;
finally
FreeLibrary(ADllHandle);
end;end;

[/code]


以下為DLL的程式

[code delphi]

library DLL_acct7;
{ 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
Windows,
Messages,
SysUtils,
Classes,
Graphics,
Controls,
Forms,
Dialogs,
acct7f in 'acct7f.pas' {acct7},
shitemf in 'shitemf.pas' {shitem},
shcusf in 'shcusf.pas' {shcus};
{$R *.res}
function GetChildForm8(MDIMainForm: TForm; AClassName: string; var f: TForm): Boolean;
var
I: Integer;
begin
f := nil;
for I := 0 to MDIMainForm.MDIChildCount-1 do
begin
if MDIMainForm.MDIChildren[I].ClassNameIs(AClassName) then
begin
f := MDIMainForm.MDIChildren[I];
Break;
end;
end;

if f = nil then
begin
if AClassName = 'acct7' then f := Tacct7.Create(MDIMainForm)
end;
Result := f <> nil;

end;
exports GetChildForm8;
begin
end.

[/code]

自己頂一下..><"

請各位先進能指點小弟..!!

這篇就有動態的寫法了

http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=69648

===================引 用 maplefog 文 章===================
這篇就有動態的寫法了

http://delphi.ktop.com.tw/board.php?cid=30&fid=70&tid=69648



非常非常感謝maplefog大大的指點..^^

小弟終於結決囉了...^^