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

[复制链接]

字体大小: 正常放大

ilikenba

1万主题	49 听众	2万积分

TA的每日心情

	奋斗 2024-6-23 05:14

签到天数: 1043 天

[LV.10]以坛为家III

群组: 万里江山

群组: sas讨论小组

群组: 长盛证券理财有限公司

群组: C 语言讨论组

群组: Matlab讨论组

电梯直达

1^#

发表于 2004-4-27 21:13 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

>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_DDESHARE|GMEM_ZEROINIT,
 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_TEXT,hMem)!=0)
 hMem = NULL;
 CloseClipboard();
}
if (hMem) GlobalFree(hMem); 
<

> return hMem ? false : true;
} 
<

>void __fastcall TForm1::Button1Click(TObject *Sender)
{
CopyToClipboard(Edit1->Text);
GetClipboardData(CF_OEMTEXT);
}
//---------------------------------------------------------------------------
CB6+update4在windows2000下通过！

zan