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

ilikenba

<>bool CopyToClipboard(AnsiString file)
{
    int nLen;
* a: O3 C7 _- t% K1 |2 A' w    char* Data;
    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
<>    nLen = 20 + file.Length() + 2;
    hMem = GlobalAlloc(GMEM_MOVEABLE
1 o! I) z( B" M6 q& q        |GMEM_DDESHARE|GMEM_ZEROINIT,
( U1 J" ~  s, a# T; z0 @+ g- A        nLen);
    if (hMem==NULL) return false;
6 l5 u  D0 ^. W9 s    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
6 W% f' M+ G4 |1 d    strcpy(Data+20, file.c_str());
    GlobalUnlock(hMem);*/
    if (OpenClipboard(NULL)) {
( q6 i* V8 _6 R) X; i, w  x# \        EmptyClipboard();  //加上这一句
# f2 c4 v4 [6 D! [, R! O3 O$ _4 V        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
( Z- i0 e5 O( J) U6 l( A            hMem = NULL;
. Y7 @+ ^5 ^% P+ L% a        CloseClipboard();
& d6 p7 V0 O9 `, E    }
) y0 Y- H2 {/ G& P. Y    if (hMem) GlobalFree(hMem); </P>
<>    return hMem ? false : true;
} </P>
2 v* _) S$ p( ~9 k5 t3 }. @8 T<>void __fastcall TForm1::Button1Click(TObject *Sender)
- c* d4 N  @% B{
" B- ~1 d; A# Y: \1 P  C  CopyToClipboard(Edit1-&gt;Text);
; G3 G* j0 `$ V8 ?/ K  GetClipboardData(CF_OEMTEXT);
}
6 q6 v0 i1 O0 K8 e//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！</P>