如何将文件拷贝到剪贴板

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

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上