MyForm.cpp
上传用户:lhxd_sz
上传日期:2014-10-02
资源大小:38814k
文件大小:1k
源码类别:

VC书籍

开发平台:

C++ Builder

  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #include "Unit1.h"
  4. #pragma hdrstop
  5. //---------------------------------------------------------------------------
  6. extern "C" __declspec(dllexport) __stdcall void OpenMyForm(HWND handle);
  7. extern "C" __declspec(dllexport) __stdcall void CloseMyForm(void);
  8. //---------------------------------------------------------------------------
  9. USEFORM("Unit1.cpp", Form1);
  10. int formID=0;
  11. //---------------------------------------------------------------------------
  12. int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
  13. {
  14.         return 1;
  15. }
  16. //---------------------------------------------------------------------------
  17. __declspec(dllexport) __stdcall void OpenMyForm(HWND handle)
  18. {
  19. //  TForm1 *Form1;
  20.   if(formID==0)
  21.   {
  22.     Application->Handle=handle;
  23.     Application->CreateForm(__classid(TForm1), &Form1);
  24.     formID=1;
  25.   }
  26. //  Form1->Create(Application);
  27.   Form1->Show();
  28. }
  29. //---------------------------------------------------------------------------
  30. __declspec(dllexport) __stdcall void CloseMyForm(void)
  31. {
  32.   if(formID==1)
  33.   {
  34.     Form1->Close();
  35.     formID=0;
  36.   }
  37. }
  38. //---------------------------------------------------------------------------