MyForm.cpp
上传用户:lhxd_sz
上传日期:2014-10-02
资源大小:38814k
文件大小:1k
- //---------------------------------------------------------------------------
- #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;
- }
- }
- //---------------------------------------------------------------------------