//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::RegistOcx(AnsiString ocxname)
{
  HINSTANCE hLib = LoadLibrary(ocxname.c_str());
  FARPROC lpDllEntryPoint;

  if (hLib < (HINSTANCE)HINSTANCE_ERROR)
  {
    return False;
  }

  lpDllEntryPoint = GetProcAddress(hLib,"DllRegisterServer");
  if(lpDllEntryPoint!=NULL)
  {
    if(FAILED((*lpDllEntryPoint)()))
    {
      ShowMessage("調用DllRegisterServer失敗");
      FreeLibrary(hLib);
      return False;
    };
    ShowMessage("注 冊 成 功");
    return True;
  }
  else
  {
    ShowMessage("調用DllRegisterServer 失 敗 ！");
    return False;
  }
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::UnRegistOcx(AnsiString ocxname)
{
  HINSTANCE hLib = LoadLibrary(ocxname.c_str());
  FARPROC lpDllEntryPoint;

  if (hLib < (HINSTANCE)HINSTANCE_ERROR)
  {
    return False;
  }

  lpDllEntryPoint = GetProcAddress(hLib,"DllUnregisterServer");
  if(lpDllEntryPoint!=NULL)
  {
    if(FAILED((*lpDllEntryPoint)()))
    {
      ShowMessage("調用DllUnregisterServer失敗");
      FreeLibrary(hLib);
      return False;
    };
    ShowMessage("反 注 冊 成 功");
    return True;
  }
  else
  {
    ShowMessage("調用DllUnregisterServer 失 敗 ！");
    return False;
  }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  RegistOcx("VCF132.ocx");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  UnRegistOcx("VCF132.ocx");
}
//---------------------------------------------------------------------------