VC 写注册表 和读注册表

BOOL ::CreateSetupInfo()
{
　　HKEY hKEY;
 　　LPCTSTR data_Set=_T("SOFTWARE\\myTest"); 
 　　// 打开注册表父目录,取得句柄
 　　long ret0=::RegOpenKeyEx(HKEY_LOCAL_MACHINE,data_Set, 0, KEY_ALL_ACCESS, &hKEY);
　　 bool value=1;
　　 if (ERROR_SUCCESS ==::RegSetValueEx(hKEY,_T("test1"),
  　　　　0,REG_BINARY,(LPBYTE) &value,sizeof(value)) &&
  　　　ERROR_SUCCESS == ::RegCloseKey(hKEY))
  　　 return TRUE;
 　　else
   　　return false;

}

BOOL ::ReadSetUpInfo()
{
 　　HKEY hKEY;
　　 LPCTSTR data_Set=_T("SOFTWARE\\myTest"); 
 　　long ret0=::RegOpenKeyEx(HKEY_LOCAL_MACHINE,data_Set, 0, KEY_ALL_ACCESS, &hKEY);
　　 LPBYTE lpa = new BYTE[500];
　　 DWORD dwAidSize=500;
 　　DWORD type=REG_SZ;
 　　if(ERROR_SUCCESS == ::RegQueryValueEx(hKEY,_T("test1"),
 　　　　 NULL,&type,lpa,&dwAidSize) && 
  　　　ERROR_SUCCESS == ::RegCloseKey(hKEY))
   　　return TRUE;
 　　else
  　　return false;
}