如何将文件复制到剪贴板? 我要做一个资源管理器,大部分功能已完成,但在利用CLIPBOARD进行文件复制时出了问题,文件如何将文件复制到剪贴板?又如何粘贴过来? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 memo1.CopyToClipboard ;memo1.PasteFromClipboard;能行吗,不行,说说具体从什么地方拷贝到什么地方? clipboard.assign()用这个试一下吧! 我也遇到过clipboard出错要找一个对象的 补充一下一楼的: Memo1.SelectAll; memo1.CopyToClipboard;或手动选择一部分字符后再 memo1.CopyToClipboard; //fromhttp://search.csdn.net/expert/topic/53/5301/2002/10/14/1096022.htmuses ShlObj, ClipBrd;procedure CopyFilesToClipboard(FileList: string);var DropFiles: PDropFiles; hGlobal: THandle; iLen: Integer;begin iLen := Length(FileList) + 2; FileList := FileList + #0#0; hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, SizeOf(TDropFiles) + iLen); if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.'); begin DropFiles := GlobalLock(hGlobal); DropFiles^.pFiles := SizeOf(TDropFiles); Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); GlobalUnlock(hGlobal); Clipboard.SetAsHandle(CF_HDROP, hGlobal); end;end;// Example:procedure TForm1.Button1Click(Sender: TObject);begin CopyFilesToClipboard('C:\temp\temp.Txt'#0'C:\temp\temp.bmp');end; delphi查找窗体句柄,显示窗体问题 Delphi 获取句柄问题 介绍一篇用 DELPHI 写外挂的文章。很详细!! 如何查找第二條? 请教关于函数和Application属性问题 Delphi6.0序列号 dll中调用FORM窗体??? Delphi调用DLL的问题 在stringgird 中能否用颜色区分每个小格 通过了国家高级程序员考试,有两年的软件开发和系统设计经验,学delphi、pb的在上海、广州、北京、深圳月薪能拿多少? 关于矢量图的缩放!! 大家帮忙推荐一下条形码扫描枪和IC读写卡器好吗?
memo1.PasteFromClipboard;
能行吗,不行,说说具体从什么地方拷贝到什么地方?
clipboard出错
要找一个对象的
Memo1.SelectAll;
memo1.CopyToClipboard;
或手动选择一部分字符后再 memo1.CopyToClipboard;
http://search.csdn.net/expert/topic/53/5301/2002/10/14/1096022.htmuses ShlObj, ClipBrd;procedure CopyFilesToClipboard(FileList: string);
var
DropFiles: PDropFiles;
hGlobal: THandle;
iLen: Integer;
begin
iLen := Length(FileList) + 2;
FileList := FileList + #0#0;
hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT,
SizeOf(TDropFiles) + iLen);
if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.');
begin
DropFiles := GlobalLock(hGlobal);
DropFiles^.pFiles := SizeOf(TDropFiles);
Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen);
GlobalUnlock(hGlobal);
Clipboard.SetAsHandle(CF_HDROP, hGlobal);
end;
end;// Example:
procedure TForm1.Button1Click(Sender: TObject);
begin
CopyFilesToClipboard('C:\temp\temp.Txt'#0'C:\temp\temp.bmp');
end;