将文件copy到剪贴板上

bool CopyToClipboard(AnsiString file);

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

CopyToClipboard("C:\\scandisk.log");

}

//---------------------------------------------------------------------------

//收集整理：http://www.ccrun.com (C++ Builder 研究)

//---------------------------------------------------------------------------

bool CopyToClipboard(AnsiString file)

{

int nLen;

char* Data;

HANDLE hMem;

if (file.IsEmpty()) return false;

nLen = 20 + file.Length() + 2;

hMem = GlobalAlloc(GMEM_MOVEABLE

GMEM_DDESHAREGMEM_ZEROIN99v,

nLen);

if (hMem==NULL) return false;

Data = (char*)GlobalLock(hMem);

*(DWord*)Data = 20;

strcpy(Data+20, file.c_str());

GlobalUnlock(hMem);

if (OpenClipboard(NULL)) {

EmptyClipboard();

if (SetClipboardData(

CF_HDROP,hMem)!=0)

hMem = NULL;

CloseClipboard();

}

if (hMem) GlobalFree(hMem);

return hMem ? false : true;

}