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

ilikenba

<>bool CopyToClipboard(AnsiString file)
1 V& @7 ^% f% |{
    int nLen;
    char* Data;
2 u3 B+ E& ~9 s8 ]# ^( r* k    HANDLE hMem;</P>
' H9 n! v* \" U2 ?5 `<>    if (file.IsEmpty()) return false;</P>
<>    nLen = 20 + file.Length() + 2;
) j" t9 P4 v% I" H+ h. _; _    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
# p* z5 q$ G0 i6 @" b# |5 |+ b9 K        nLen);
" W& Q* W" y. P. A9 B: ^# X! [* A8 {    if (hMem==NULL) return false;
2 N4 x# x/ y% B1 B+ [& \2 B7 i. d- `1 x    /*Data = (char*)GlobalLock(hMem);
3 E" z5 n. l5 `6 J    *(DWORD*)Data = 20;
' Q5 Y2 j" H8 a9 j" A5 Q/ \, b    strcpy(Data+20, file.c_str());
    GlobalUnlock(hMem);*/
    if (OpenClipboard(NULL)) {
2 \/ l* e( @$ p2 x0 S8 d. E9 x        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
            hMem = NULL;
        CloseClipboard();
* Q, o* X4 z& f0 ^# P/ z  p    }
    if (hMem) GlobalFree(hMem); </P>
$ S3 R2 Z. V' r" n: ?. S! l( l<>    return hMem ? false : true;
} </P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
! x0 w/ t7 l; k) h* t, \2 B' F9 c{
. F" a# A7 A) ^( Q5 ]" T0 {+ ]  CopyToClipboard(Edit1-&gt;Text);
# ~; F  @2 K8 G6 j7 }/ j  GetClipboardData(CF_OEMTEXT);
9 P5 s/ q* F. Y$ X5 |, V$ J% E}
//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！</P>