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

ilikenba

<>bool CopyToClipboard(AnsiString file)
( p, m" z$ T- Y{
$ A( X, N# Z+ s1 ^    int nLen;
    char* Data;
    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
6 u" ?. T" Q+ H) b+ o% q<>    nLen = 20 + file.Length() + 2;
5 l5 N7 \# V1 e! a+ t8 [% U( S    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
        nLen);
    if (hMem==NULL) return false;
    /*Data = (char*)GlobalLock(hMem);
7 A, W! ~6 j8 o* \: n    *(DWORD*)Data = 20;
    strcpy(Data+20, file.c_str());
+ k( y5 t1 C8 U) Y0 W$ j    GlobalUnlock(hMem);*/
    if (OpenClipboard(NULL)) {
1 y+ y5 @. y, `5 ]# x3 A        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
: i9 s0 n3 v& p9 ?            CF_TEXT,hMem)!=0)
            hMem = NULL;
( J. i: v. s) X/ o% u' _" W        CloseClipboard();
( T* k! l# [9 t4 c& J0 X    }
9 w( M7 z8 p, q    if (hMem) GlobalFree(hMem); </P>
/ Z# m- m5 ^4 f0 H" O' V; M<>    return hMem ? false : true;
} </P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
, e- T- y' W; r3 D* u- W{
9 c- a, i' G  {  CopyToClipboard(Edit1-&gt;Text);
+ O8 G( \* ?9 E' a  GetClipboardData(CF_OEMTEXT);
}
//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！</P>