Category

Development Platform
Home > E-Books > Visual C++ Books > View Code
Unit1.cpp
Package: C++Builder.rar　[view]
Upload User: lhxd_sz
Upload Date: 2014-10-02
Package Size: 38814k
Code Size: 2k
Category:

Visual C++ Books

Development Platform:

C++ Builder

Unit1.cpp：Code Content
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  5. #include "Unit1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.         : TForm(Owner)
  13. {
  14. }
  15. //---------------------------------------------------------------------------
  16. bool __fastcall TForm1::RegistOcx(AnsiString ocxname)
  17. {
  18.   HINSTANCE hLib = LoadLibrary(ocxname.c_str());
  19.   FARPROC lpDllEntryPoint;
  21.   if (hLib < (HINSTANCE)HINSTANCE_ERROR)
  22.   {
  23.     return False;
  24.   }
  26.   lpDllEntryPoint = GetProcAddress(hLib,"DllRegisterServer");
  27.   if(lpDllEntryPoint!=NULL)
  28.   {
  29.     if(FAILED((*lpDllEntryPoint)()))
  30.     {
  31.       ShowMessage("调用DllRegisterServer失败");
  32.       FreeLibrary(hLib);
  33.       return False;
  34.     };
  35.     ShowMessage("注 册 成 功");
  36.     return True;
  37.   }
  38.   else
  39.   {
  40.     ShowMessage("调用DllRegisterServer 失 败 ！");
  41.     return False;
  42.   }
  43. }
  44. //---------------------------------------------------------------------------
  45. bool __fastcall TForm1::UnRegistOcx(AnsiString ocxname)
  46. {
  47.   HINSTANCE hLib = LoadLibrary(ocxname.c_str());
  48.   FARPROC lpDllEntryPoint;
  50.   if (hLib < (HINSTANCE)HINSTANCE_ERROR)
  51.   {
  52.     return False;
  53.   }
  55.   lpDllEntryPoint = GetProcAddress(hLib,"DllUnregisterServer");
  56.   if(lpDllEntryPoint!=NULL)
  57.   {
  58.     if(FAILED((*lpDllEntryPoint)()))
  59.     {
  60.       ShowMessage("调用DllUnregisterServer失败");
  61.       FreeLibrary(hLib);
  62.       return False;
  63.     };
  64.     ShowMessage("反 注 册 成 功");
  65.     return True;
  66.   }
  67.   else
  68.   {
  69.     ShowMessage("调用DllUnregisterServer 失 败 ！");
  70.     return False;
  71.   }
  72. }
  73. //---------------------------------------------------------------------------
  75. void __fastcall TForm1::Button1Click(TObject *Sender)
  76. {
  77.   RegistOcx("VCF132.ocx");
  78. }
  79. //---------------------------------------------------------------------------
  81. void __fastcall TForm1::Button2Click(TObject *Sender)
  82. {
  83.   UnRegistOcx("VCF132.ocx");
  84. }
  85. //---------------------------------------------------------------------------