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