OCX控制注冊判斷及注冊 BCB啟動(dòng)一段代碼

ID:3721 · 發(fā)表于 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;
                  }
               }
         }

帳號(hào)		自動(dòng)登錄	找回密碼
密碼			立即注冊