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

ilikenba

<>bool CopyToClipboard(AnsiString file)
{
    int nLen;
! g  ^2 }" m" g: O- N    char* Data;
# q8 e( B$ G  Y3 p0 i( z; T    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
<>    nLen = 20 + file.Length() + 2;
    hMem = GlobalAlloc(GMEM_MOVEABLE
8 Z* q: D- C: ~8 f        |GMEM_DDESHARE|GMEM_ZEROINIT,
        nLen);
( z! b3 E" O7 U8 V- Z    if (hMem==NULL) return false;
    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
' }7 J8 Y) T) y- {: {+ Q) E    strcpy(Data+20, file.c_str());
% j, J" a8 z) _' b  }    GlobalUnlock(hMem);*/
2 A2 b/ l8 N7 H3 O# u# Y. O    if (OpenClipboard(NULL)) {
        EmptyClipboard();  //加上这一句
8 i" ~" \( Z8 t: X        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
' s) _) V) T# Z0 {' p            hMem = NULL;
0 o' M  H! M+ j        CloseClipboard();
- e$ V0 T0 R, w1 S+ E( I$ O# d. ^    }
. u$ [- g: m. n5 \0 J3 k" g    if (hMem) GlobalFree(hMem); </P>
9 ~" f7 c1 r8 y) w& ^& E3 }<>    return hMem ? false : true;
7 t1 R( ~+ y* Q  m. d/ a* p} </P>
- E. p* {- F4 t$ k+ i5 G( B<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
5 P( @+ v# U0 R0 x, s' W$ _, W# x  CopyToClipboard(Edit1-&gt;Text);
  GetClipboardData(CF_OEMTEXT);
0 ?( o' s0 o. l# d6 [. f7 G/ h0 F) V}
//---------------------------------------------------------------------------
# |6 ^- W4 \5 W: T8 PCB6+update4在windows2000下通过！</P>