打开APP
userphoto
未登录

开通VIP,畅享免费电子书等14项超值服

开通VIP
如何将文件拷贝到剪贴板
怎样判断当前剪贴板中的内容为文件,如何将指定文件(不是文件内容)拷贝到剪贴板中。请问各位大侠:怎样判断当前剪贴板中的内容为文件,如何将指定文件(不是文件内容)拷贝到剪贴板中。

int GetClipboardFormatName(

UINT format,// clipboard format to retrieve

LPTSTR lpszFormatName,// address of buffer for name

int cchMaxCount// length of name string in characters

);

如果format=CF_HDROP就是文件了

HANDLE SetClipboardData(

UINT uFormat, // clipboard format

HANDLE hMem// data handle

);

menxin的方案是可行的.Delphi定义了两个格式:CF_PICTURE和CF_COMPONENT.

用户可以定义自己的格式.不过因为Formats是WORD格式,所以系统中只能有

16种格式.打开ClipBrd单元,可以查到.

CF_PICTURE := RegisterClipboardFormat(‘Delphi Picture‘);

CF_COMPONENT := RegisterClipboardFormat(‘Delphi Component‘);

你添加:

CF_MYFILE := RegisterClipboardFormat(‘ My File Format‘);

剪贴板操作:

打开;

清空;

SetFormatData(CF_TEXT)-文件名;

SetFormatData(CF_MYFILE)-文件内容

关闭;

如果你只对文件名感兴趣,那只是一个文本格式.取出内容,用FileExists查询

是否存在即可.

registerClipboardFormat函数登记新的剪贴板格式

格式的值在OXC000和0XFFF范围

IsClipboardFormatAvailable函数判断剪贴板是否包含指定格式数据

格式可用返回非零值

windows是有定义:

可以用cf_Hdrop;

uses shlobj,activex,clipbrd;

procedure TForm1.Button1Click(Sender: TObject);

var

FE:TFormatEtc;

Medium: TStgMedium;

FileName:String;

dropfiles:PDropFiles;

pFile:PChar;

begin

FileName:=‘c:“1.bmp‘;

FE.cfFormat := CF_HDROP;

FE.dwAspect := DVASPECT_CONTENT;

FE.tymed := TYMED_HGLOBAL;

Medium.hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_ZEROINIT, SizeOf(TDropFiles)+length(FileName)+1);

if Medium.hGlobal0 then begin

Medium.tymed := TYMED_HGLOBAL;

dropfiles := GlobalLock(Medium.hGlobal);

try

dropfiles^.pfiles := SizeOf(TDropFiles);

dropfiles^.fwide := False;

longint(pFile) := longint(dropfiles)+SizeOf(TDropFiles);

StrPCopy(pFile,FileName);

Inc(pFile, Length(FileName)+1);

pFile^ := #0;

finally

GlobalUnlock(Medium.hGlobal);

end;

Clipboard.SetAsHandle(CF_HDROP,Medium.hGlobal);

end;

end;

参照dragdrop做了一个,还不错.

上面这个例子把filename这个文件放在了clipboard上
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请点击举报
打开APP,阅读全文并永久保存 查看更多类似文章
猜你喜欢
类似文章
【热】打开小程序,算一算2024你的财运
VB与Windows资源管理器互拷文件
UI自动化控制微信发送文件【解决了一个无人回答的难题,Pywin32设置文件到剪切板】
ORACLE STARTUP 命令
读取文件的最后N行
C语言技能提升系列文章(五)文件访问
Mono源码学习-如何解析config文件
更多类似文章 >>
生活服务
热点新闻
分享 收藏 导长图 关注 下载文章
绑定账号成功
后续可登录账号畅享VIP特权!
如果VIP功能使用有故障,
可点击这里联系客服!

联系客服