OCX控制注册判断及注册 BCB启动一段代码

ID:3721 · 发表于 2015-1-5 13:51

HKEY hKey;
         if(RegOpenKeyEx(HKEY_CLASSES_ROOT,"MSCOMMLib.MSComm.1\\Clsid",0,KEY_READ,&hKey)!=ERROR_SUCCESS)
         {
               AnsiString vOCXFileName = "MSCOMM32.ocx";
               AnsiString vTemp = "DllRegisterServer";
               FARPROC lpDllEntryPoint;
               HINSTANCE hLib = LoadLibrary(vOCXFileName.c_str());
               if (hLib < (HINSTANCE)HINSTANCE_ERROR)
               {
                  FreeLibrary(hLib);
                  vOCXFileName =  ExtractFileDir(Application->ExeName)+"\\MSCOMM32.ocx";
               }
               lpDllEntryPoint = GetProcAddress(hLib,vTemp.c_str());
               if(lpDllEntryPoint!=NULL)
               {
                  if(FAILED(( *lpDllEntryPoint)()))
                  {
                     MessageBox(Application->Handle,"注册失败","提示",MB_OK || MB_ICONINFORMATION);
                     FreeLibrary(hLib);
                     // return 0;
                  }else
                  {
                     MessageBox(Application->Handle,"注册成功","提示",MB_OK || MB_ICONINFORMATION);
                     FreeLibrary(hLib);
                     //  return 0;
                  }
               }
         }

帐号		自动登录	找回密码
密码			立即注册