如何copy文件到剪贴板中？

[steednetson]

如何copy文件到剪贴板中？
请给个例子～～

[lwluser]

copy文件剪贴板中？,,,,,,,,,,,,,,
你真厉害,学会了教我,,,,文件copy到剪贴板中.....
就算Microsoft的程序也是能把文件的内容copy到其中啊..

[李_军]

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