一段把文件拷贝到剪贴板的代码！

ilikenba

<>bool CopyToClipboard(AnsiString file)
& J$ N' {6 X3 Z6 X1 ?8 f; ^4 H& i{
' p$ _. _% t* M8 R1 {' d7 |    int nLen;
, ?: y0 i. b" s( q8 Y8 D    char* Data;
    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
6 ~$ v# o0 ?' r, j% r# x9 r<>    nLen = 20 + file.Length() + 2;
    hMem = GlobalAlloc(GMEM_MOVEABLE
3 I& c9 D" I; k; ^- X        |GMEM_DDESHARE|GMEM_ZEROINIT,
6 Q1 y) e! j  K, R. y        nLen);
) ^8 {+ B$ c6 k    if (hMem==NULL) return false;
# @1 n  p8 i# S& |$ b$ i    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
" h" ?* e* ?) z    strcpy(Data+20, file.c_str());
: V9 @2 g5 Q9 }/ A6 d* u    GlobalUnlock(hMem);*/
0 G5 S1 a. x" \0 W/ v, _' {    if (OpenClipboard(NULL)) {
        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
; M2 }7 t, {3 w4 _& H            CF_TEXT,hMem)!=0)
; b) }- }$ S& v% z            hMem = NULL;
8 \% _5 }% _* b- {        CloseClipboard();
    }
& X4 n# G2 {0 _7 a  B    if (hMem) GlobalFree(hMem); </P>
  m  N1 o8 N, S) d2 `; h0 F; S7 g! b<>    return hMem ? false : true;
1 O* S! o, J3 ~} </P>
. c9 G: C3 z: Y. o0 B<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
& k' c9 D2 u- C: _5 g3 z4 B  CopyToClipboard(Edit1-&gt;Text);
  GetClipboardData(CF_OEMTEXT);
3 i/ r& a$ u. K$ @; B}
' s( H6 {( \, b' I; M: L//---------------------------------------------------------------------------
& H2 O9 l1 r0 v3 sCB6+update4在windows2000下通过！</P>