在不使用OLE时，可以使用下面的代码：

CString str = "Some text";

::OpenClipboard(this->m_hWnd);
::EmptyClipboard();

HGLOBAL h = GlobalAlloc(GHND | GMEM_SHARE, str.GetLength() + 1);
strcpy((LPSTR)GlobalLock(h), str);
GlobalUnlock(h);

::SetClipboardData(CF_TEXT, h);
::CloseClipboard();