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

ilikenba

<>bool CopyToClipboard(AnsiString file)
{
    int nLen;
    char* Data;
$ Q, g9 m* ~) n: _, _    HANDLE hMem;</P>
  ?$ z/ F7 I8 G6 r! s% a& t3 j<>    if (file.IsEmpty()) return false;</P>
<>    nLen = 20 + file.Length() + 2;
    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
' J, k1 S) D3 V, C  s( b5 u        nLen);
    if (hMem==NULL) return false;
0 a" p# T7 d  @1 J    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
9 z7 v1 O4 j+ f9 Y' S    strcpy(Data+20, file.c_str());
    GlobalUnlock(hMem);*/
0 [, o" X! G. Y; x- e! ^3 K    if (OpenClipboard(NULL)) {
        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
* V9 x. a0 m% b4 k& g# F1 r            hMem = NULL;
        CloseClipboard();
; g; }6 i0 I4 f4 W    }
    if (hMem) GlobalFree(hMem); </P>
<>    return hMem ? false : true;
3 T" L, L* K- O  U& v} </P>
( z( C7 V3 y3 _<>void __fastcall TForm1::Button1Click(TObject *Sender)
+ u* J( e7 P! Z" L{
: x$ C2 S# S, [2 G0 c& b& Q  CopyToClipboard(Edit1-&gt;Text);
  GetClipboardData(CF_OEMTEXT);
}
' c* @) d; ^8 c# E% q8 d- ?% |//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！</P>