BOOL InstallWPS()
{
BOOL bInstall = FALSE;
HKEY hKey;
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;
if (::RegQueryValueEx(hKey, _T("DisplayName"), 0, &dwType, (LPBYTE)dwValue, &dwSize) == ERROR_SUCCESS)
{
bInstall = TRUE;
strVal.Format(L"%s", dwValue);
}
RegCloseKey(hKey);
}
return bInstall;
}