delphi 剪切板变量_如何将文件拷贝到剪贴板_Delphi

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

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 搞代码

原创文章，转载请注明： 转载自搞代码

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~