有没有高手？

Question

定义了一个过程，目的：已知一个RichEdit的句柄，从剪贴板往一个RichEdit上粘贴文字，但是总出错，请给检查一下：
Procedure AddMyText(Rich:hwnd);  //Rich:RichEdit的句柄 
Const
    sTmp='dsfdsfsdaf';
Var
  hMem:HGLOBAL;
   pStr:LPTSTR;
Begin
  hMem := GlobalAlloc(GHND Or GMEM_SHARE, sizeof(sTmp));
  pStr := GlobalLock(hMem);
  lstrcpy(pStr, sTmp);
  GlobalUnlock(hMem);
  OpenClipboard(rich);
  EmptyClipboard();
  SetClipboardData(CF_UNICODETEXT, hMem);  //-----=====出错！！！！！
  CloseClipboard();
  GlobalFree(hMem);
  SendMessage(Rich, WM_PASTE, 0, 0);
end;

Answer 1

<<hMem := GlobalAlloc(GHND Or GMEM_SHARE, sizeof(sTmp));
hMem := GlobalAlloc(GHND Or GMEM_SHARE, Length(sTmp)+1);

Answer 2

不用那么麻烦, hehe 给你个偷懒的方法:RichEdit1.PasteFromClipboard;