文件放过进剪贴板

最新推荐文章于 2023-04-06 11:07:15 发布

小小de巫师

最新推荐文章于 2023-04-06 11:07:15 发布

阅读量316

点赞数

分类专栏： Delphi

本文链接：https://blog.csdn.net/gfuchao/article/details/103595874

版权

本文介绍了如何将文件移动到剪贴板，并详细讲解了如何使用操作系统提供的功能或者第三方工具来实现文件的复制和粘贴操作，帮助读者理解这一常见但至关重要的计算机操作。

摘要由CSDN通过智能技术生成

procedure CopyFilesToClipboard(FileList: string);
var
  DropFiles: PDropFiles;
  hGlobal: Thandle;
  iLen: Integer;
begin
  iLen := Length(FileList) * SizeOf(Char) + 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);
    DropFiles^.pt.X := 0;
    DropFiles^.pt.Y := 0;
    DropFiles^.fNC := False;
    DropFiles^.fWide := true;
    Move(FileList[1], (PAnsiChar(DropFiles) + SizeOf(TDropFiles))^, iLen);
    GlobalUnlock(hGlobal);
    ClipBoard.SetAsHandle(CF_HDROP, hGlobal);
  end;
end;

CopyFilesToClipboard('D:\设计师结算\2019年\已结算账单\123.txt');