Dll 화일 내용

//---------------------------------------------------------------------------

#include <vcl.h>
#include <windows.h>
#include "Unit2.h"
#pragma hdrstop

TApplication* DllApp = 0;
//---------------------------------------------------------------------------
//   Important note about DLL memory management when your DLL uses the
//   static version of the RunTime Library:
//
//   If your DLL exports any functions that pass String objects (or structs/
//   classes containing nested Strings) as parameter or function results,
//   you will need to add the library MEMMGR.LIB to both the DLL project and
//   any other projects that use the DLL.  You will also need to use MEMMGR.LIB
//   if any other projects which use the DLL will be performing new or delete
//   operations on any non-TObject-derived classes which are exported from the
//   DLL. Adding MEMMGR.LIB to your project will change the DLL and its calling
//   EXE's to use the BORLNDMM.DLL as their memory manager.  In these cases,
//   the file BORLNDMM.DLL should be deployed along with your DLL.
//
//   To avoid using BORLNDMM.DLL, pass string information using "char *" or
//   ShortString parameters.
//
//   If your DLL uses the dynamic version of the RTL, you do not need to
//   explicitly add MEMMGR.LIB as this will be done implicitly for you
//---------------------------------------------------------------------------

#pragma argsused

int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
    return 1;
}
//---------------------------------------------------------------------------

extern "C" __declspec(dllexport) void __stdcall CreateChild(TApplication *App)
{
    if (!DllApp)
    {
        DllApp = Application;
        Application = App;
    }

    TForm2 *child = new TForm2(Application->MainForm);
    child->Show();
}

extern "C" __declspec(dllexport) void __stdcall ResetDllApp()
{
    if (DllApp)
    {
        Application = DllApp;
    }
}


Dll 안에 들어 있는 From 소스

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
    Action = caFree;   
}
//---------------------------------------------------------------------------



Dll을 불러 들이는 Form (즉 MDI Parent 품)

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit21.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void (__stdcall *CreateChild)(TApplication *);
void (__stdcall *ResetDllApp)();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HINSTANCE DllInstance;
    DllInstance = LoadLibrary("Project1.dll");
    CreateChild = (void(__stdcall *)(TApplication *))GetProcAddress(DllInstance, "CreateChild");

    CreateChild(Application);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
    HINSTANCE DllInstance;
    DllInstance = LoadLibrary("Project1.dll");
    ResetDllApp = (void(__stdcall *)(void))GetProcAddress(DllInstance, "ResetDllApp");
    ResetDllApp();
}
//---------------------------------------------------------------------------

위 내용에 대한 나와있는곳이 없더군요...

저도 3주동안 고생해서 만든 소스입니다.


많은 도움이 되었으면 합니다. 그럼......