クリップボードへのコピー(テキスト)

  CString csWork(_T("クリップボードコピー"));

  if (OpenClipboard())
  {
    ::EmptyClipboard();

    HGLOBAL hGMem = ::GlobalAlloc(GHND|GMEM_DDESHARE, sizeof(TCHAR)*(csWork.GetLength()+1));
    TCHAR* psz = (TCHAR*)::GlobalLock(hGMem);

    ::lstrcpy(psz, csWork);

    ::GlobalUnlock(hGMem);

    ::SetClipboardData(CF_TEXT, hGMem);

    ::CloseClipboard();
  }

ＶＣ覚書きページ...