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

ilikenba

<>bool CopyToClipboard(AnsiString file)
1 h7 L9 M% R0 v' u{
: k: Y) {8 q- S* Z* `    int nLen;
6 Q% k. _8 g# @% k3 l    char* Data;
8 m  P3 w& Q7 l- A$ H2 {0 d3 r4 W    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
1 Z+ D  W5 j( R  k% y! M3 T<>    nLen = 20 + file.Length() + 2;
: i5 S6 d) ^% E* m* g* m    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
6 a6 o8 a, h/ ~; O! w& m        nLen);
5 e; v+ [) H- T! W2 x# P. p9 `    if (hMem==NULL) return false;
: e- K4 H$ ?( q/ G  X3 B3 g    /*Data = (char*)GlobalLock(hMem);
" v% t1 _* }9 Z$ B/ }, J" y, H    *(DWORD*)Data = 20;
& M2 n9 G4 P! s9 ?0 X, Y. ~    strcpy(Data+20, file.c_str());
  h9 \% s( |) ~4 T3 d8 M    GlobalUnlock(hMem);*/
    if (OpenClipboard(NULL)) {
        EmptyClipboard();  //加上这一句
7 e7 @& J  e& W  {        if (SetClipboardData(
            CF_TEXT,hMem)!=0)
            hMem = NULL;
        CloseClipboard();
    }
6 x; u5 h( g; b6 f9 s    if (hMem) GlobalFree(hMem); </P>
<>    return hMem ? false : true;
} </P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
{
% z: y( N2 e. |2 m2 O* [  CopyToClipboard(Edit1-&gt;Text);
  GetClipboardData(CF_OEMTEXT);
! A- X9 V5 D. ~! _% I/ E}
//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！</P>