mainform.cpp

C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分 程序设置

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
   if(this->OpenDialog1->Execute())
   {
      AnsiString StrFileName=this->OpenDialog1->FileName;
      this->Edit1->Text=StrFileName;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{//注册DLL、OCX服务程序
   if(this->Edit1->Text.Length()<1)
     return;
   HINSTANCE hInstance=LoadLibrary(this->Edit1->Text.c_str());
   FARPROC lpDP;
   if(hInstance<(HINSTANCE)HINSTANCE_ERROR)
   {
     MessageBox(Handle,"没法取得实例句柄","信息提示",MB_OK);
     return;
   }
   lpDP=GetProcAddress(hInstance,"DllRegisterServer");
   if(lpDP!=NULL)
   {
     if(FAILED((*lpDP)()))
     {
        MessageBox(Handle,"调用DllRegisterServer失败！","信息提示",MB_OK);
        FreeLibrary(hInstance);
        return;
     }
     else
     {
        MessageBox(Handle,"注册DLL、OCX服务程序操作成功","信息提示",MB_OK);
        return;
     }
   }
   else
   {
        MessageBox(Handle,"调用DllRegisterServer失败！","信息提示",MB_OK);
        FreeLibrary(hInstance);
        return;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{//取消注册DLL、OCX服务程序
   if(this->Edit1->Text.Length()<1)
     return;
   HINSTANCE hInstance=LoadLibrary(this->Edit1->Text.c_str());
   FARPROC lpDP;
   if(hInstance<(HINSTANCE)HINSTANCE_ERROR)
   {
     MessageBox(Handle,"没法取得实例句柄","信息提示",MB_OK);
     return;
   }
   lpDP=GetProcAddress(hInstance,"DllUnregisterServer");
   if(lpDP!=NULL)
   {
     if(FAILED((*lpDP)()))
     {
        MessageBox(Handle,"调用DllUnregisterServer失败！","信息提示",MB_OK);
        FreeLibrary(hInstance);
        return;
     }
     else
     {
        MessageBox(Handle,"取消注册DLL、OCX服务程序操作成功","信息提示",MB_OK);
        return;
     }
   }
   else
   {
        MessageBox(Handle,"调用DllUnregisterServer失败！","信息提示",MB_OK);
        FreeLibrary(hInstance);
        return;
   }
}
//---------------------------------------------------------------------------