OCX控制注冊判斷及注冊 BCB啟動一段代碼

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;
                  }
               }
         }

帳號		自動登錄	找回密碼
密碼			立即注冊

亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

OCX控制注冊判斷及注冊 BCB啟動一段代碼