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

ilikenba

<>bool CopyToClipboard(AnsiString file)
{
# t3 m" M1 s8 d, K) z; G- x    int nLen;
    char* Data;
    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
3 C  ^, b7 Q! g& N' i2 Q8 m% D: h<>    nLen = 20 + file.Length() + 2;
5 k1 l4 s' y' [  o; Z# V+ X    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
        nLen);
% L% B9 o% u$ O' q' B1 u2 E    if (hMem==NULL) return false;
    /*Data = (char*)GlobalLock(hMem);
% y' K$ C  V8 ^& Y; d1 ~: \    *(DWORD*)Data = 20;
) I7 W" ^* U+ L* T) n, G+ _$ u( k    strcpy(Data+20, file.c_str());
1 B. v% K: c$ O& v. g    GlobalUnlock(hMem);*/
    if (OpenClipboard(NULL)) {
5 o- K' K2 }  [4 T9 r! i        EmptyClipboard();  //加上这一句
# Z/ h& c" v) k& h& R        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
            hMem = NULL;
+ S* A  ]3 a$ z( E& _6 ]        CloseClipboard();
2 d4 {6 e( \: ]. P- v, A- J3 |    }
8 O# ]4 ~9 K3 \" f    if (hMem) GlobalFree(hMem); </P>
7 `" D/ m2 _4 E7 H+ x<>    return hMem ? false : true;
} </P>
1 u7 `" q1 K2 X- H5 W1 G! s4 j- y<>void __fastcall TForm1::Button1Click(TObject *Sender)
$ N+ [# U; M3 `{
  CopyToClipboard(Edit1-&gt;Text);
0 b$ k" A. K# X  GetClipboardData(CF_OEMTEXT);
: C7 E; |! i  j( l- Y! U}
//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！</P>