在Delphi中将文件复制到剪贴板

您链接到的论坛帖子包含您问题中的代码,并询问它为什么不起作用.毫不奇怪,代码对你来说不再适用于你.

Remy给出的答案是ANSI和Unicode之间存在不匹配.代码适用于ANSI,但编译器是Unicode.

所以点击Remy的回复并按照说法行事:http://embarcadero.newsgroups.archived.at/public.delphi.nativeapi/200909/0909212187.html

基本上你需要调整代码来解释Unicode Delphi中2字节宽的字符,但我认为没有真正的目的在这里重复Remy的代码.

但是,我会说你可以比这段代码做得更好.这段代码的问题在于它将每个方面都混合成一个完成所有功能的大功能.更重要的是,该函数是GUI中表单的一种方法,它实际上是错误的.您可以重用代码的某些方面,但不能像这样考虑因素.

我将从一个将已知内存块放入剪贴板的函数开始.

procedure ClipboardError;
begin
  raise Exception.Create('Could not complete clipboard operation.');
  // substitute something more specific that Exception in your code
end;

procedure CheckClipboardHandle(Handle: HGLOBAL);
begin
  if Handle=0 then begin
    ClipboardError;
  end;
end;

procedure CheckClipboardPtr(Ptr: Pointer);
begin
  if not Assigned(Ptr) then begin
    ClipboardError;
  end;
end;

procedure PutInClipboard(ClipboardFormat: UINT; Buffer: Pointer; Count: Integer);
var
  Handle: HGLOBAL;
  Ptr: Pointer;
begin
  Clipboard.Open;
  Try
    Handle := GlobalAlloc(GMEM_MOVEABLE, Count);
    Try
      CheckClipboardHandle(Handle);
      Ptr := GlobalLock(Handle);
      CheckClipboardPtr(Ptr);
      Move(Buffer^, Ptr^, Count);
      GlobalUnlock(Handle);
      Clipboard.SetAsHandle(ClipboardFormat, Handle);
    Except
      GlobalFree(Handle);
      raise;
    End;
  Finally
    Clipboard.Close;
  End;
end;

我们还需要能够创建双空终止的字符串列表.像这样:

function DoubleNullTerminatedString(const Values: array of string): string;
var
  Value: string;
begin
  Result := '';
  for Value in Values do
    Result := Result + Value + #0;
  Result := Result + #0;
end;

也许您可能会添加一个接受TStrings实例的重载.

现在我们拥有了所有这些,我们可以集中精力制作CF_HDROP格式所需的结构.

procedure CopyFileNamesToClipboard(const FileNames: array of string);
var
  Size: Integer;
  FileList: string;
  DropFiles: PDropFiles;
begin
  FileList := DoubleNullTerminatedString(FileNames);
  Size := SizeOf(TDropFiles) + ByteLength(FileList);
  DropFiles := AllocMem(Size);
  try
    DropFiles.pFiles := SizeOf(TDropFiles);
    DropFiles.fWide := True;
    Move(Pointer(FileList)^, (PByte(DropFiles) + SizeOf(TDropFiles))^, 
      ByteLength(FileList));
    PutInClipboard(CF_HDROP, DropFiles, Size);
  finally
    FreeMem(DropFiles);
  end;
end;