| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 
 | //---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm1 *Form1;
 
typedef int (__stdcall *MYDLLFUNC)(void);
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HINSTANCE hinstDLL;
    MYDLLFUNC ImpFuncDLL;
    int iRet;
 
    if ((hinstDLL=LoadLibrary("Project1.dll"))) {
        ImpFuncDLL = GetProcAddress(hinstDLL, "LoadForm");
        if (ImpFuncDLL) {
            iRet = ImpFuncDLL();
        }
        FreeLibrary(hinstDLL);
    }
} | 
Partager