释放资源中某类型的文件

/************************************************************************/  
/* 函数说明：释放资源中某类型的文件                                       
/* 参    数：新文件名、资源ID、资源类型                                   
/* 返 回 值：成功返回TRUE，否则返回FALSE    
/* By:Koma   2009.07.24 23:30                                
/************************************************************************/  
BOOL CTestDlg::ReleaseRes(CString strFileName,WORD wResID,CString strFileType)   
{   
    // 资源大小   
    DWORD   dwWrite=0;         
  
    // 创建文件   
    HANDLE  hFile = CreateFile(strFileName, GENERIC_WRITE,FILE_SHARE_WRITE,NULL,   
                                CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);   
    if ( hFile == INVALID_HANDLE_VALUE )   
    {   
        return FALSE;   
    }   
  
    // 查找资源文件中、加载资源到内存、得到资源大小   
    HRSRC   hrsc =  FindResource(NULL, MAKEINTRESOURCE(wResID), strFileType);   
    HGLOBAL hG = LoadResource(NULL, hrsc);   
    DWORD   dwSize = SizeofResource( NULL,  hrsc);   
  
    // 写入文件   
    WriteFile(hFile,hG,dwSize,&dwWrite,NULL);      
    CloseHandle( hFile );   
    return TRUE;   
}