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

ilikenba

<>bool CopyToClipboard(AnsiString file)
{
' \. {/ h' ]8 o, \    int nLen;
; L0 E7 f. B7 l1 ~' Y% O    char* Data;
    HANDLE hMem;</P>
  Y2 K1 ~1 E' F. g9 R# }<>    if (file.IsEmpty()) return false;</P>
<>    nLen = 20 + file.Length() + 2;
5 g$ v- U1 @  Z5 \    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
$ G. N4 |$ R$ ?& g        nLen);
    if (hMem==NULL) return false;
" i( Z6 m3 u' b5 b    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
    strcpy(Data+20, file.c_str());
  ]1 J1 F! U. I$ b8 V! x    GlobalUnlock(hMem);*/
3 n' S$ K6 ~+ a8 ]3 [3 ]# J3 c    if (OpenClipboard(NULL)) {
2 s6 {" h2 Y4 ^        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
- A5 U0 T; I+ X- O8 B            hMem = NULL;
        CloseClipboard();
4 r# }# f( n: @( ~' E    }
    if (hMem) GlobalFree(hMem); </P>
; {; Q- m1 ?) y7 {<>    return hMem ? false : true;
; R" ?9 l  s6 T+ ]5 R} </P>
" [& H0 Y- r3 X5 G# u. O$ `<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
8 N6 U/ b0 [' x# R: X0 {  CopyToClipboard(Edit1-&gt;Text);
, n* l, T" v6 H+ A* J4 G( |  GetClipboardData(CF_OEMTEXT);
, F  a( d2 _, p# |8 Y1 G! {}
//---------------------------------------------------------------------------
0 F) p, f1 T* c! W, I! Y* {! LCB6+update4在windows2000下通过！</P>