判断电脑是否安装WPS

BOOL InstallWPS(){BOOL bInstall = FALSE;HKEY hKey;//WPS注册表路径LPCTSTR strSubKey = L"Software\\Kingsoft\\Office\\6.0\\Common";long lRet = ::RegOpenKeyEx(HKEY_CURRENT_USER, strSubKey, 0, KEY_QUERY_VALUE, &hKey);if (lRet == ERROR_SUCCESS){CString strVal(L"");wchar_t dwValue[256];DWORD dwSize = sizeof(dwValue);DWORD dwType = REG_SZ;//获取安装WPS安装名称if (::RegQueryValueEx(hKey, _T("DisplayName"), 0, &dwType, (LPBYTE)dwValue, &dwSize) == ERROR_SUCCESS){bInstall = TRUE;strVal.Format(L"%s", dwValue);}//程序结束，关闭打开的hKEYRegCloseKey(hKey);}return bInstall;}