• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

如何将文件拷贝到剪贴板_Delphi

Delphi 搞代码 3年前 (2018-08-09) 230次浏览 已收录 0个评论

怎样判断当前剪贴板中的内容为文件,如何将指定文件(不是文件内容)拷贝到剪贴板中。请问各位大侠:怎样判断当前剪贴板中的内容为文件,如何将指定文件(不是文件内容)拷贝到剪贴板中。
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

http://www.gaodaima.com/?p=65787如何将文件拷贝到剪贴板_Delphi

  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.hGlobal<>0 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上

欢迎大家阅读《如何将文件拷贝到剪贴板_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址