myform.cpp

来自「有视频」· C++ 代码 · 共 40 行

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Unit1.h"
#pragma hdrstop
//---------------------------------------------------------------------------
extern "C" __declspec(dllexport) __stdcall void OpenMyForm(HWND handle);
extern "C" __declspec(dllexport) __stdcall void CloseMyForm(void);
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
int formID=0;
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
        return 1;
}
//---------------------------------------------------------------------------
__declspec(dllexport) __stdcall void OpenMyForm(HWND handle)
{
//  TForm1 *Form1;
  if(formID==0)
  {
    Application->Handle=handle;
    Application->CreateForm(__classid(TForm1), &Form1);
    formID=1;
  }
//  Form1->Create(Application);
  Form1->Show();
}
//---------------------------------------------------------------------------
__declspec(dllexport) __stdcall void CloseMyForm(void)
{
  if(formID==1)
  {
    Form1->Close();
    formID=0;
  }
}
//---------------------------------------------------------------------------