如何将CString对象放到剪切板SetClipboardData

//如何将CString  宽字节对象放到剪切板
CString str =  _T("欢迎来到东东博客!");

if (::OpenClipboard(m_hWnd))
    {
::EmptyClipboard();
//int n = str.GetLength()*2 +2;//多字符集实际字符长度
HANDLE hData = ::GlobalAlloc(GMEM_MOVEABLE,str.GetLength()*2 +2);
LPWSTR pData = (LPWSTR)::GlobalLock(hData);
::lstrcpy(pData,str);
::GlobalUnlock(hData);
//CF_UNICODETEXT
::SetClipboardData(CF_UNICODETEXT,hData); //多字符集
::CloseClipboard();
    }