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

ilikenba

<>bool CopyToClipboard(AnsiString file)
$ }9 R5 h) D0 N( L+ F9 O{
* i  Y. q4 n# F& a    int nLen;
    char* Data;
    HANDLE hMem;</P>
" a, V+ c$ U" [$ M$ P. ~/ l' @7 \0 v<>    if (file.IsEmpty()) return false;</P>
! i% d; h! f. t, c, H. m/ f2 ?7 V<>    nLen = 20 + file.Length() + 2;
5 |: r" v! a# L" i9 W    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
8 i- o7 E; R& d& s  n        nLen);
    if (hMem==NULL) return false;
    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
    strcpy(Data+20, file.c_str());
. u; U) F* ^3 o    GlobalUnlock(hMem);*/
! ], ^  c  B) w6 F    if (OpenClipboard(NULL)) {
        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
* k% u) K. s0 @. J# J  P            CF_TEXT,hMem)!=0)
            hMem = NULL;
        CloseClipboard();
% L: Z4 L' n$ G% A. b0 E0 ^9 U0 q0 b    }
5 M( \0 V3 n) Q# E( ~; @- y    if (hMem) GlobalFree(hMem); </P>
7 Q2 o1 d2 `- L! b<>    return hMem ? false : true;
2 k, b4 c( V$ ~2 P} </P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
9 Q* f# ~9 |8 ]! A7 V' y" \{
8 x3 w4 j: j' r3 N  CopyToClipboard(Edit1-&gt;Text);
: p, `/ ~3 x% @: w- G  GetClipboardData(CF_OEMTEXT);
}
//---------------------------------------------------------------------------
. d3 R; D, \1 ^4 c, U6 HCB6+update4在windows2000下通过！</P>