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

ilikenba

<>bool CopyToClipboard(AnsiString file)
7 y7 D' t9 G. F{
    int nLen;
; p% N, |. [! |    char* Data;
    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
3 }2 j* z3 M; r  o  O0 h<>    nLen = 20 + file.Length() + 2;
6 Z0 d) h& S( a+ P    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
        nLen);
    if (hMem==NULL) return false;
7 k; G1 X0 z) @4 o3 O    /*Data = (char*)GlobalLock(hMem);
: ~5 M  P) E3 Z: H4 v: |- X! {9 A  o+ r    *(DWORD*)Data = 20;
$ k& G' v0 e- p, }! }    strcpy(Data+20, file.c_str());
    GlobalUnlock(hMem);*/
! q: y; m3 I3 [2 t/ l    if (OpenClipboard(NULL)) {
) L0 Z/ l5 l+ h4 |* r        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
            hMem = NULL;
2 t- G$ S. u( L9 V        CloseClipboard();
3 {% L. K0 G+ D, m1 J' ~" W/ x3 v& F    }
    if (hMem) GlobalFree(hMem); </P>
<>    return hMem ? false : true;
} </P>
1 ~2 g! h: \9 n1 r3 F4 j<>void __fastcall TForm1::Button1Click(TObject *Sender)
# l; V: n3 ]5 k- X. z- l{
8 E; K2 u7 }$ Z. w3 ]  CopyToClipboard(Edit1-&gt;Text);
1 g& f5 Q$ ]3 Y8 X! o4 s: w" d  GetClipboardData(CF_OEMTEXT);
0 G) D% E4 ]+ |5 g+ t8 U. l- f}
//---------------------------------------------------------------------------
; R. V2 ?, ^# u1 ^5 {CB6+update4在windows2000下通过！</P>