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

ilikenba

<>bool CopyToClipboard(AnsiString file)
, w, |* O4 |7 p' c2 V0 @. Z{
* C: c5 O& r/ H    int nLen;
7 f  N, C, N: H  V0 X) x    char* Data;
! `0 z# d0 q2 V    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
- ^- c9 ^3 J" M# o9 S<>    nLen = 20 + file.Length() + 2;
    hMem = GlobalAlloc(GMEM_MOVEABLE
+ o6 ~# c7 [& q6 e; S/ H        |GMEM_DDESHARE|GMEM_ZEROINIT,
        nLen);
0 N6 _6 m% k5 C    if (hMem==NULL) return false;
    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
( e$ N# t* `8 e1 H3 s2 y    strcpy(Data+20, file.c_str());
. x5 o3 m0 I# V' l8 X    GlobalUnlock(hMem);*/
    if (OpenClipboard(NULL)) {
7 V! `2 P/ ~, u6 c5 D( C        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
8 F* R+ _/ B2 l1 N            hMem = NULL;
        CloseClipboard();
1 I5 e8 L' ~7 a" ?! k% d) ?4 v9 L" x  a5 ]    }
    if (hMem) GlobalFree(hMem); </P>
<>    return hMem ? false : true;
} </P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
! W) q4 U: X9 f8 S- B) z{
  CopyToClipboard(Edit1-&gt;Text);
  GetClipboardData(CF_OEMTEXT);
}
6 b+ ]1 ^8 V; _' E  C$ b//---------------------------------------------------------------------------
1 O0 T9 I: ~, qCB6+update4在windows2000下通过！</P>