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

ilikenba

<>bool CopyToClipboard(AnsiString file)
{
    int nLen;
  `7 m4 e4 g, \7 ]    char* Data;
2 S' q. z( D% @8 _+ ]    HANDLE hMem;</P>
<>    if (file.IsEmpty()) return false;</P>
<>    nLen = 20 + file.Length() + 2;
# G* F% U/ D& p: q# Y    hMem = GlobalAlloc(GMEM_MOVEABLE
        |GMEM_DDESHARE|GMEM_ZEROINIT,
        nLen);
    if (hMem==NULL) return false;
3 D$ k& k9 J0 {, _    /*Data = (char*)GlobalLock(hMem);
    *(DWORD*)Data = 20;
9 B) l7 Z% q) Q' D' v! `. W: K    strcpy(Data+20, file.c_str());
    GlobalUnlock(hMem);*/
    if (OpenClipboard(NULL)) {
" b* p8 {6 M, {; a& X1 u& i        EmptyClipboard();  //加上这一句
        if (SetClipboardData(
. W$ K) Z3 ^  L  b            CF_TEXT,hMem)!=0)
            hMem = NULL;
        CloseClipboard();
6 I- E' H: n( Z    }
( ~: {: m. A$ \! U; ?9 Y( h    if (hMem) GlobalFree(hMem); </P>
# M) [: ^$ w% E/ c( U<>    return hMem ? false : true;
} </P>
<>void __fastcall TForm1::Button1Click(TObject *Sender)
" w- W1 E+ j  a/ \% i{
2 N3 `) z- z) }- Q$ S* P  CopyToClipboard(Edit1-&gt;Text);
& D; w+ J, V- }3 A3 j: J8 w. c/ V+ y  GetClipboardData(CF_OEMTEXT);
) I( l! X" r* B0 ?% V! u9 o! b}
//---------------------------------------------------------------------------
( q. l* K8 U6 k7 I. KCB6+update4在windows2000下通过！</P>