قضية DLL في دلفي تستحق النظر

أفضل ما في الأمر:

================================================================================================== ==============================================================================

جمهورية الكونغو الديمقراطية

this.programMdiform;

الاستخدامات

النماذج،

UMdiformin´UMdiform.pas´{النموذج الرئيسي}،

UDMin´UDM.pas´{GlobalDM:TDataModule},

UFunin´UFun.pas´;

{$R*.res}

يبدأ

Application.Initialize;

Application.CreateForm(TMainform,Mainform);

Application.Run;

نهاية.

================================================================================================== ======================================================================================

هذا هو السبب:

this.unitUMdiform;

واجهة

الاستخدامات

Windows، الرسائل، SysUtils، المتغيرات، الفئات، الرسومات، عناصر التحكم، النماذج،

مربعات الحوار، UDM، StdCtrls؛

يكتب

تماينفورم=فئة(تفورم)

Button1:TButton؛

الإجراءButton1Click(Sender:TObject);

الإجراءFormCreate(Sender:TObject);

خاص

{التصريحات الخاصة}

عام

MyHandle:HWND;

{التصريحات العامة}

نهاية؛

فار

النموذج الرئيسي:TMinform;

يكتب

T_ShowTestMng=function(varadm:TMainform):Boolean;StdCall;

تطبيق

{$R*.dfm}

الإجراءTMainform.Button1Click(Sender:TObject);

فار

Lib_:Thandle;

_ShowTestMng:T_ShowTestMng;

يبدأ

Lib_:=LoadLibrary(pchar(´MdiChild.dll´));

يحاول

@_ShowTestMng:=GetProcAddress(Lib_,´_ShowTestMng´);

إذا لم يكن (@_ShowTestMng=nil)ثم

_ShowTestMng(Mainform);

أخيراً

FreeLibrary(Lib_);

نهاية؛

نهاية؛

الإجراءTMainform.FormCreate(Sender:TObject);

يبدأ

MyHandle:=Application.Handle;

نهاية؛

نهاية.

================================================================================================== ===================================================================================

نوع ملف DLL:

LibraryMdiChild;

الاستخدامات

مشاركة,

UMdiform,//此单元为父窗体单元،在顶目设置中我已经设置了搜索此单元在路径.

النماذج،

سيسوتيلس,

الطبقات،

UChildin´UChild.pas´{FrmChild};//FrmChild هو أحد أشكال FormStyle الذي يستخدم FsMDIChild

{$R*.res}

function_ShowTestMng(varadm:TMainform):Boolean;StdCall;

يبدأ

النتيجة:=صحيح؛

Application.Handle:=adm.MyHandle;

Application.CreateForm(TFrmChild,FrmChild);// تم إنشاء نموذج جديد: لا يمكن إنشاء النموذج. لا توجد نماذج MDI نشطة حاليًا.

FrmChild.Show;

نهاية؛

صادرات

_ShowTestMng;

نهاية.