编译环境:vs2008+xp
void CSetIeMainPageDlg::OnBnClickedOk()
{
// TODO: 在此添加控件通知处理程序代码
CString sNewMainPage;
GetDlgItemText(IDC_EDIT_MAINPAGE, sNewMainPage);
CString strKey= _T("Software\\Microsoft\\Internet Explorer\\Main");
HKEY hResult;
RegOpenKey(HKEY_CURRENT_USER,(LPCTSTR)strKey,&hResult); //得到欲修改键的句柄
//项目属性-》字符集:使用多字节字符集
long ret = ::RegSetValueEx(hResult,_T("Start Page"),0,REG_SZ,(CONST BYTE*)sNewMainPage.GetBuffer(0),sNewMainPage.GetLength());
sNewMainPage.ReleaseBuffer();
//项目属性-》字符集:使用 Unicode 字符集
//long ret = RegSetValueEx(hResult,_T("Start Page"),0,REG_SZ,(CONST BYTE *)(LPCTSTR)sNewMainPage,(sNewMainPage.GetLength() + 1) * sizeof(TCHAR));
::RegCloseKey(hResult);//修改注册表相应的值并释放键句柄
CString sSuccessMsg(_T("设置首页失败!")), sFaildMsg(_T("已设为首页!"));
if(ret != ERROR_SUCCESS)
{
MessageBox(sSuccessMsg);
}
else
{
MessageBox(sFaildMsg);
}
//OnOK();
}