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

ilikenba

<>bool CopyToClipboard(AnsiString file)
; u: B- N1 i9 j* r{
, M* N9 Y9 |( A6 L) G7 e& Q    int nLen;
    char* Data;
    HANDLE hMem;</P>
$ i$ g3 h4 B& B, V( J. x( Y<>    if (file.IsEmpty()) return false;</P>
( _. b0 ?  H. a/ \<>    nLen = 20 + file.Length() + 2;
4 F/ v$ z& a( ]' c  `& g    hMem = GlobalAlloc(GMEM_MOVEABLE
+ x, @% j9 \+ s: E( h7 n5 _        |GMEM_DDESHARE|GMEM_ZEROINIT,
        nLen);
0 |0 M3 l! K6 C1 x9 t    if (hMem==NULL) return false;
- w2 Q1 u5 I3 v( \    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
    strcpy(Data+20, file.c_str());
" F" W/ X3 x1 f$ O    GlobalUnlock(hMem);*/
8 H* X& P- `6 U  E+ E. @# a    if (OpenClipboard(NULL)) {
        EmptyClipboard();  //加上这一句
+ n; D: i4 v$ ?4 c$ A" m        if (SetClipboardData(
2 `& l0 }2 L7 X' u4 a4 }8 H            CF_TEXT,hMem)!=0)
            hMem = NULL;
0 ^/ r) u  I: U; u7 q        CloseClipboard();
, j$ `; T7 a" ]# P/ @- h; K5 ]1 y    }
    if (hMem) GlobalFree(hMem); </P>
5 n: H- a) E' G/ i<>    return hMem ? false : true;
1 K% z5 X! z$ u; Z  V3 f8 C  m} </P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
  CopyToClipboard(Edit1-&gt;Text);
7 Y; s$ j2 Z5 h1 {  GetClipboardData(CF_OEMTEXT);
}
/ C. N) l6 I5 Y0 S0 e5 Z//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！</P>